[ALexandr555]

у меня есть) Form1.memo1.Lines.add('lllll'); Form1.Label1.capton:='hjgj'; вот так из потока работаю с ними мб из за этого они пропадают, и через некоторое короткое время вобще вся прога подвисла.

[NumLock]

вообще-то чтобы из потока с VCL компонентами работать нужно Synchronize использовать

[ALexandr555]

а как собственно использовать его?
так?
Synchronize(Form1.Label1.capton:='hjgj');

[NumLock]

Код:

type
  TMyThread = class(TThread)
  private
    iParam: Integer;
    sParam: String;
    procedure JurassicPark;
  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
  // ...
  Synchronize(JurassicPark);
  // ...
end;

procedure TMyThread.JurassicPark;
begin
  Form1.Tag:=iParam;
  Form1.Caption:=sParam;
end;

[ALexandr555]

Код:

procedure TMyThread.JurassicPark;
begin
  Form1.Tag:=iParam;
  Form1.Caption:=sParam;
end;

Меня интересует в этом месте переменная iParam и sParam берется из

Код:

private
    iParam: Integer;
    sParam: String;

или из

Код:

Self.iParam:=iParam;
  Self.sParam:=sParam;

просто нужно чтобы в каждом потоке эти переменные означали свое и в процедуре JurassicPark

[NumLock]

да, эти переменные "в каждом потоке означают свое". инициализируются они в конструкторе, его параметрами.

[ALexandr555]

Код:

procedure TMyThread.JurassicPark;
begin
  Form1.Tag:=iParam;
  Form1.Caption:=sParam;
end;

так в этой процедуре они тоже означают свое?