[NumLock]

Код:

 procedure TMyThread.Execute;
 begin
 DoWork;
 end;