[NumLock]

простейший пример работы с VCL из потока. естественно работает с первого раза:

Код:

type
  TNumLockThread = class(TThread)
  private
    procedure Synch;
  protected
    procedure Execute; override;
  end;
...
procedure TNumLockThread.Execute;
var
  i: Integer;
begin
  for i:=1 to 5 do
  begin
    Synchronize(Synch);
    Sleep(250);
  end;
end;

procedure TNumLockThread.Synch;
begin
  Form1.Memo1.Lines.Add(IntToStr(GetTickCount));
end;

запуск:

Код:

TNumLockThread.Create(False);