[NumLock]

Код:

type
  TMyThread = class(TThread)
  private
    iParam: Integer;
    sParam: String;
  protected
    procedure Execute; override;
  public
    constructor Create(iParam: Integer; sParam: String);
  end;

constructor TMyThread.Create(iParam: Integer; sParam: String);
begin
  inherited Create(True);
  Self.iParam:=iParam;
  Self.sParam:=sParam;
  Resume;
end;

procedure TMyThread.Execute;
begin
  while not Terminated do
  begin
//    iParam:=$ff;
//    sParam:='lost';
  end;
end;

Код:

TMyThread.Create($ff, 'lost');