[NumLock]

Код:

type
  TFormulaOneThread = class(TThread)
  end;

  TForm1 = class(TForm)
  private
    { Private declarations }
    FFormulaOneThread: TFormulaOneThread;
  public
    { Public declarations }
  end;