Datei auf server uploaden erfolgreich aber 0 kb

[thomas2009]

Hallo

ich lade eine Datei auf Server mit diesem Code hoch
Es erscheint kein Fehler. Wenn ich aber auf den Server anschaue, finde ich zwar die
datei da aber seine Größe 0 kb !

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  f,t: string;
begin
  self.IdFTP1.Host := 'ftp.myweb.de';
  self.IdFTP1.Username := 'user1';
self.IdFTP1.Password := 'passwort1';
  Label1.Caption := 'Connecting...';
  application.ProcessMessages;
  self.IdFTP1.Connect;
  f := 'C:\test.bmp';
  if IdFTP1.Connected then begin
      application.ProcessMessages;
      self.IdFTP1.ChangeDir('/');
     application.ProcessMessages;
     IdFTP1.Put(f, ExtractFileName(f));
     application.ProcessMessages;
  end; 
end;

Woran kann das Problem liegen ?