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

...

    procedure startMyThreadCheckTasks();
    procedure stopMyThreadCheckTasks();

//******************************************************************************
//стартуем поток проверки тасок
//******************************************************************************
procedure TForm2.startMyThreadCheckTasks();
begin
MyThreadCheckTasks:=TMyThreadCheckTasks.Create(false);                          //вначале нужно создать экземпляра потока .. параметр false запускает поток сразу после создания  true запуск впоследствии методом resume
MyThreadCheckTasks.Priority:=tpNormal;
MyThreadCheckTasks.FreeOnTerminate:=true;  //сам очистит память когда удалят
end;
//******************************************************************************
//******************************************************************************
//******************************************************************************
//остановка  потока
//******************************************************************************
procedure TForm2.stopMyThreadCheckTasks;                                    //останавливаем поток
begin
MyThreadCheckTasks.Terminate;
end;
//******************************************************************************
//******************************************************************************
//******************************************************************************
// поток 
//******************************************************************************
procedure TMyThreadCheckTasks.Execute();
var
   i:integer
begin
while not MyThreadCheckTasks.Terminated do
    begin
    inc(i)
    end;

end;
//******************************************************************************
//******************************************************************************