Первые шаги с TThread в Delphi

FreeOnTerminate - освобождать ли память, выделенную под экземпляр класса процесса, когда этот процесс завершается. Если True - при завершении процесса (или при вызове метода Terminate) экземпляр класса автоматически освобождается (аналогично вызову метода Free). Тип: Boolean;
  Handle (ThreadID) - дескриптор процесса. Эта величина может быть использована для управления процессом через функции WinAPI. Тип: THandle;
  ReturnValue - возвращаемое значение при завершении процесса. Тип: Integer;
  Priority - приоритет процесса. Возможные значения этого свойства мы разберем немного позже. Тип: TThreadPriority;
  Suspended - показывает, в каком состоянии находится процесс: True - приостановлен, False - в нормальном. Тип: Boolean;
  Terminated - показывает, завершен ли процесс. True - завершен, False - нет. Тип: Boolean;

Create(CreateSuspended: Boolean) - создает экземпляр класса. Параметр CreateSuspended указывает на то, нужно ли создавать приостановленную задачу (True), или запускать ее сразу (False);
  Suspend - приостанавливает выполнение процесса;
  Resume - продолжает выполнение процесса после Suspend;
  Terminate - полностью прекращает выполнение процесса;
  WaitFor - ждет завершения процесса, возвращая затем код его завершения (ReturnValue);
  Synchronize(Method: TThreadMethod) - синхронизирует выполнение метода процесса, позволяя ему работать параллельно с другими процессами.

OnTerminate - возникает, когда процесс находится в стадии завершения.

Пример 1. "Шаблон" для создания Thread-ов.

 {Определение класса TMyThread}
 type
   TMyThread = class(TThread)
   private
     { Private declarations }
   protected
     procedure DoWork;
     procedure Execute; override;
   end;

 implementation

 procedure TMyThread.Execute;
 begin
   {Если Вы хотите, чтобы процедура DoWork выполнялась лишь один раз - удалите цикл while}
   while not Terminated do
     Synchronize(DoWork);
 end;

 procedure TMyThread.DoWork;
 begin
   {Здесь можно уже выполнять те задачи, которые должны быть исполнены процессом}
 end;
    

Пример 2. "Поединок" Thread-ов :-).

 {В форму Form1 нужно поместить TCheckBox - CheckBox1
   и одну кнопку TButton - Button1}
 {Определение классов двух Thread-ов}
 type
   TMyThread1 = class(TThread)
   private
     { Private declarations }
   protected
     procedure DoWork;
     procedure Execute; override;
   end;

   TMyThread2 = class(TThread)
   private
     { Private declarations }
   protected
     procedure DoWork;
     procedure Execute; override;
   end;

 var Form1: TForm1;
     T1   : TMyThread1;
     T2   : TMyThread2;

 implementation

 procedure TMyThread1.Execute;
 begin
   {Пока процесс не прервали, выполняем DoWork}
   while not Terminated do
     Synchronize(DoWork);
 end;

 procedure TMyThread2.Execute;
 begin
   {Пока процесс не прервали, выполняем DoWork}
   while not Terminated do
     Synchronize(DoWork);
 end;

 procedure TMyThread1.DoWork;
 begin
   {Пытаемся победить второй процесс :-)}
   Form1.CheckBox1.Checked := True;
 end;

 procedure TMyThread2.DoWork;
 begin
   {Пытаемся победить первый процесс :-)}
   Form1.CheckBox1.Checked := False;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   {Если кнопка называется Stop...}
   if Button1.Caption = 'Stop' then begin
     {Прерываем оба процесса}
     T1.Terminate;
     T2.Terminate;
     {Изменяем название кнопки}
     Button1.Caption := 'Start';
     {Выходим из процедуры}
     Exit;
   end;
   {Создаем и сразу запускаем два процесса}
   T1 := TMyThread1.Create(False);
   T2 := TMyThread2.Create(False);
   {Здесь можно поэкспериментировать с приоритетами:
    T1.Priority := tpLowest;
    T2.Priority := tpHighest;
    }
   {Переименовываем кнопку}
   Button1.Caption := 'Stop';
 end;
    

Статья написана для сайта: Дельфи.Вокруг да около.