Tidftp Problem mit Get

[Berni68]

Hallo zusammen,

folgender Code zum herunterladen von Dateien funktioniert nicht, das Bitmap ist sozusagen geschreddert, also nicht gleich der Quelldatei:

Delphi-Quellcode:

if idftp.Connected=false then idftp.Connect;
...
idftp.Get(pwFile, ms, true);
...
idftp.List(TStrings(files), mask, false);
...
idftp.Get(IdSchule.Text+'.bmp','xxx.bmp', true);
idftp.Disconnect;

Wenn ich allerdings zwischendurch die Verbindung trenne und wiederherstelle
geht es:

Delphi-Quellcode:

if idftp.Connected=false then idftp.Connect;
...
idftp.Get(pwFile, ms, true);
...
idftp.List(TStrings(files), mask, false);
...
idftp.Disconnect; // trennen
if idftp.Connected=false then idftp.Connect; // wiederverbinden
idftp.Get(IdSchule.Text+'.bmp','xxx.bmp', true);
idftp.Disconnect;

jetzt kommt das Bitmap korrekt an.

Auch wenn ich vor dem herunterladen des Bitmaps
idftp.TransferType:= ftBinary ;
einfüge geht es nicht.
Ich würde gerne das trennen und wiederverbinden weglassen.
was mach ich falsch?