[Страдалецъ]

Код:

procedure TMyThread1.Execute;
begin
  while not Terminated 
  do begin
      Synchronize(DoWork);
      Sleep(50);
      end;
end;
 
procedure TMyThread1.DoWork;
begin
 //Что-то делаем в один проход
end;