INDY-FTP optimieren?

[Svenkan]

Jetzt brauch ich nur noch das mit dem Ladebalken. Momentan wird für jede Datei einzeln der Upload 'gebildet'. Allerdings möchte ich, dass es für den kompletten Upload gemacht wird.

Delphi-Quellcode:

procedure TForm1.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
 BtFileUpload.Enabled:=False;
  ProgressBar1.Max := AWorkCountMax;
  ProgressBar1.Position := 0;
end;

procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
   Application.ProcessMessages;
   
  //Aktualisieren der Fortschrittsanzeige:
  ProgressBar1.Position := AWorkCount;;
end;

procedure TForm1.IdFTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
    BtFileUpload.Enabled:=True;
end;