Delphi posielanie suborov

jorg22

Na posielanie suborov pouzivam komponentu IdTCPClient a na prijmanie IdTCPServer. Problem je ze pre IdTCPServer neviem spravit progress bar lebo nema event onWork, neviete mi poradit ako na to?
Na internete som nasiel nieco taketo:

Kód: Vybrať všetko

AContext.Connection.IOHandler.OnWork := IdTCPServer1Work;

Kód: Vybrať všetko

procedure  TForm1.IdTCPServer1Work(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64);
begin
    Label2.Caption := IntToStr(AWorkCount);
end;

Neviem ale kedy to mam spustat, lebo pred zacatim odosielania suboru to nic nespravi.
Pouzivam Indy 10.
Dik.