FTP Download - Fehler in Datei

[Markus70]

Hallo,

ich lade mit diesem Code per IdFTP eine Zip Datei vom Server herunter.

Delphi-Quellcode:

  
  with IdFTP1 do try
    Username := UserIDEdit.Text;
    Password := PasswordEdit.Text;
    Host := FtpServerEdit.Text;
    Connect;
  finally
  end;
  IdFTP1.ChangeDir(EdSrcDir.Text);
  Name := EdSrcFile.Text;
  IdFTP1.TransferType := ftBinary;
  try
    IdFTP1.Get(Name, concat(EdSrc.Text+Name), false, false);
  finally
    IdFTP1.Disconnect;
  end;

Mit BDS2006 funktionierte das auch problemlos.
Jetzt mit Delphi2009 kann ich das erzeugt Zip Archiv nicht mehr lesen.
Es ist auch größer, als die Ursprüngliche Datei!

any ideas?

Danke