Buttons.Caption von einem Thread aus zu ändern, wie????

[jkdfighter]

Da ich kein neues Thema aufmachen möchte...
Hab ncoh ne Frage...
Wie deklariere ich IdTCPClientWork() in einem Thread???
Hab so:

Delphi-Quellcode:

procedure IdTCPClientWork(Sender: TObject; AWorkMode: TWorkMode;

.......

procedure Ttcp_client_Thread.IdTCPClientWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  main.ProgressBar_set_position(AWorkCount);
end;