INDY-FTP optimieren?

[Svenkan]

Folgendes: Jedes Mal, wenn ich etwas hochlade, ist das Programm für diese Zeit wie eingefroren. Gibt es eine Möglichkeit, dass der Upload in der Hinsicht irgendwie optimiert werden kann? Schließlich frieren FTP-Programme beim Upload ja auch nicht ein. *g*
Deswegen würde ich gerne für den Gesamtupload eine Art 'Ladebalken' einbauen. Doch bisher hab ich nur was gefunden, wo pro Datei der Status angezeigt wird. Hab das jetzt nicht mit drin.

Delphi-Quellcode:

procedure TForm1.BtFileUploadClick(Sender: TObject);
var Ini: TIniFile;
    dirname,password,s,url,username: String;
    nr: Integer;
begin
  if OpenDialog2.Execute then
 try
    Ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'conf.ini');
   username:=Ini.ReadString('FTP-Daten','Username','');
   password:=Ini.ReadString('FTP-Daten','Password','');
   url:=Ini.ReadString('FTP-Daten','URL','');
   dirname:=Ini.ReadString('FTP-Daten','Ordner','');

  IdFTP1.Username := username;
  IdFTP1.Password := password;
  IdFTP1.Host := url;
  IdFTP1.Connect;
  IdFTP1.ChangeDir(dirname);
  FOR nr := 0 TO OpenDialog2.Files.Count-1 DO
  begin
   s := OpenDialog2.Files[nr]; // Zwischenvariable; vereinfacht das Debugging
   IdFTP1.Put(s, ExtractFileName(s));
  end;
  IdFTP1.Quit;
   finally
    Ini.Free;
end;
end;