[NumLock]

я ожидал этого. потому что обе функции работают в одном потоке. решение - разделить:

Код:

type
  TMyThread = class(TThread)
  protected
    procedure Execute; override;
  end;