TIdFtp Problem mit großen Dateien

[klausjulius]

Hallo zusammen,

versuche gerade einen FTP Upload mit TIDFtp zu realisieren. das programm läuft soweit ganz gut, bis auf große dateien >10MB. kleinere dateien werden einwandfrei hochgeladen und das programm läuft nach upload weiter. versuche ich eine größere datei hochzuladen,
wird diese zwar an den server übertragen, aber nach der übertragung bleibt das programm stehen. als status bekomme ich 'datei wurde übertragen. gibts bei TIDFtp eine Größenbeschränkung, oder ist es ein Bug?

hier ist der Code Abschnitt:

Delphi-Quellcode:

         GetDir(0,aktdir);
         AFiles := TStringList.Create;
         IdFTP1.List(AFiles, 'c4.sql', TRUE);
         i := afiles.Count;
         IF i > 0 THEN
            IdFTP1.Delete('c4.sql');

         Assignfile(f, aktdir + '\sql\c4.sql');
         Reset(f,1);
         sfs := FileSize(f);
         CloseFile(f);
         IdFTP1.Put(aktdir + '\sql\c4.sql', 'c4.sql', FALSE);
         dfs := IdFTP1.Size('c4.sql');
         AFiles.Free;

nach IDFtp1.Put(...) bleibt das Programm bei großen Dateien stehen.

über eure Hilfe würde ich mich freuen

Klaus