Guck dir mal das OnWork-Event an, das müsste dann ungefähr folgendermaßen aussehen:
Delphi-Quellcode:
procedure TForm1.IdTCPClient1Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);
begin
ProgressBar.StepBy(AWorkCount);
end;
Natürlich muss das noch erweitert werden, aber das ist sicherlich ein Ansatz...