[lmikle]

Сделай у класса потока 2 проперти для ЛистБоксов и перед запуском потока просто укажив них ссылки на нужные тебе компоненты.

Код:

TMyThread = class(TThread)
...
private
  FLB1, FLB2 : TListBox;
public
  property LB1 : TListBox read FLB1 write FLB1;
  property LB2 : TListBox read FLB2 write FLB2;
end;

procedure TMyThread.Execute;
begin
  If (LB1 <> Nil) And (LB2 <> Nil) Then
    Begin
       // Здесь делаем работу
    End;
end;

вызов:

Код:

procedure TForm1.Button1Click(Sender : TObject);
var
  T : TMyThread;
begin
  T := TMyThread.Create(True);
  T.LB1 := ListBox1;
  T.LB2 := ListBox2;
  T.Resume;
  
  // Если надо попождать окончания выполнения, то
  // T.WaitFor;
end;