procedure TmainForm.IdHTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
   const AWorkCountMax: Integer);
begin
   pb.Position := 0;
   pb.Max := AWorkcountMax;
end;

procedure TmainForm.IdHTTPWork(Sender: TObject; AWorkMode: TWorkMode;
   const AWorkCount: Integer);
begin
   pb.Position := AWorkCount;
end;

procedure TmainForm.IdHTTPWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
   pb.Position := 0;
end;