Дополнительный поток в программе [Delphi]

Всем привет, я хотел бы рассказать как сделать так, что бы программа при свой работе не зависала и мы ее могли спокойно перемещать/сворачивать.
Ну что приступим! После

Код:

  private
    { Private declarations }
  public
    { Public declarations }
  end;

объявляем класс, наследующий класс TThread:

Код:

TNewThread = class(TThread)
  private
  protected
 // переопределяем метод Execute
    procedure Execute; override;
  public
    constructor Create(CreateSuspended: Boolean);
  end;

жмем ctrl+shift+c
Создается

Код:

constructor TNewThread.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 TNewThread.Create(false);//запуск нашего потока
end;

procedure TNewThread.Execute; //показывам что будит делать поток.
begin
// Тут программа выполняет какую-то вашу работу.
end;

Вот и все (:

 

Запихиваю туда свой код, например код чекера. Он выделяет все ( мемо edit и т.д. ) красным...
Что я не так делаю ?

 

Копипаст с хэпика =) а так окай. молодцом. Плусик получи.

 

Как блин с потоками разобраться

 

Выложи код помогу.

 

Если у тебя форма form1 то перепиши мое.

 

А что вы собственно сделали ?
Я спрашивал как добавить потоки (сделать многопоточное приложение, например 10-20-50), но что то не заметил в вашем коде)
Я так понимаю вы добавили 1 поток ?

 

Ты сказал у тебя ерор дают, я исправил.
Как добавить больше потоков?
- Синхронизируй или добавь критичиские секции.

 

добавь пожалуйста в скайп, обсудить с кодами кое что надо.

 

Ну я имел ввиду, как прально потоки добавить, как в 1 посту не получилось.

 

В 1 посту это дополнительный поток, для того что бы форма не зависала.
Про дополнительные потоки я уже скал : Синхронизируй или используй критичиские секции.

Может мне проще весь код написать за тебя?

 

А статейку не подскажешь ?