[ALexandr555]

Код:

 type
    TMyThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute(x1,x2: String; nomer: integer); reintroduce;
  public
    constructor Create(x1,x2: String; nomer: integer); overload;
end;

constructor TMyThread.Create(x1,x2: String; nomer: integer);
begin
   Create(True);
   FreeOnTerminate := True;
   Priority := tpNormal;
   Execute(x1,x2,nomer);
end;

procedure TMyThread.Execute(UIN,Msg: String; nomer: integer);
//тут сам код потока уже

нужно передавать пераменные в поток, вот у меня собственно вопрос все ли правильно сделал, тестировал вроде работает