[Alegun]

Вероятно имелся ввиду классический вариант "своего" потока, типа как в примере из DRKB

Код:

type
TMyThread = class(TThread)
 private
  Answer: integer;
  protected
   procedure ShowResult;
   procedure Execute; override;
end;

implementation

//Процедура для вывода информации из потока
procedure TMyThread.ShowResult;
begin
 Form1.Memo.Text:= IntToStr(Answer);
 Form1.Memo.Refresh;
end;

procedure TMyThread.Execute;
var
i: Integer;
begin
for i := 1 to 10000 do
begin
   Inc(answer);

   Synchronize(ShowResult);

end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
MyThread: TMyThread;
begin
MyThread:= TMyThread.Create(false);
end;