FTP-Upload langsam

[Codewalker]

Hallo zusammen.

Ich möchte aus meinem Programm eine Datei auf einen FTP-Server hochladen. Die Verbindung wird auch schön aufgebaut und der Datentransfer gestartet. Aber der Upload ist mit gut 800 Bytes(!) / Sekunde schneckenlangsam.
Der FTP ist auf einem Root-Server mit guter Anbindung, mein eigener Rechner hängt an einer 64 MBit-Leitung. Nehme ich andere Programme (z.B. Total Commander) läuft es in Sekundenbruchteilen. In Delphi bekomme ich sowohl mit Indy (ReadTimeout) als auch mit IP*Works (301 Interrupted) keine Datei auf den Server.
Hat jemand eine Idee, woran sowas liegen kann?

Aktueller Code (mit Ip*Works):

Delphi-Quellcode:

  
if FTP.Connected
    then FTP.Logoff;

  FTP.RemoteHost := qryRepositoriesFTPURL.AsString;
  FTP.RemotePort := qryRepositoriesFTPPort.AsInteger;
  FTP.User := Cred.Username;
  FTP.Password := Cred.Password;

  FTP.Logon;
  FTP.LocalFile := FPackage.FileName;
  FTP.RemoteFile := ExtractFileName(FPackage.FileName);
  FTP.Upload;
  FTP.Logoff;