Problemy z uploadem przez Indy.

Witam. Mam prostą funkcję uploadu w Delphi. Działa, jednak upload jest niesamowicie wolny!
W mojej aplikacji na pojawienie się 1% czekam kilkadziesiąt sekund bądź więcej, natomiast przez klienta FileZilla na ten sam serwer ten sam plik w tym samym czasie procenty skaczą jeden za drugim. Skąd to się może brać?

Gdyby tylko filezilla miała obsługę CMD to nie było by problemu, ale tak to muszę to pisać samemu.

  FTPEvents := TFTPEvents.Create;
  FTP:=TIdFTP.Create(nil);
  FTP.Host:='host';
  FTP.UserName:='user';
  FTP.Password:='pass';
  FTP.Passive:=true;
  FTP.OnAfterClientLogin:= FTPEvents.FTPAfterClientLogin;
  FTP.OnWorkBegin:=FTPEvents.FTPWorkBegin;
  FTP.OnWork:=FTPEvents.FTPWork;
  FTP.Connect();

  if FTP.Connected then
  begin
    FTP.Put(path,ExtractFileName(path),false);
  end
  else
  begin
   writeln('cant connect with FTP!');
  end;
  FTPEvents.Free;
end; 

Jakieś pomysły? Przez filezille mi idzie np. 10mb/s, a tutaj nie mam prędkościomierza ale pewnie kilkaset kb/s lub mniej....