descarga por ftp ,ficheros en mal estado
 

buenas...
Tengo una aplicación que envia-recepciona ficheros via ftp, los ficheros, son
ficheros de texto .txt, algunos de ellos de varias megas de tamaño.
El problema que observo parece ser que está centrado en la descarga, cuando los descargo, sin recibir ningún error, observo como no tienen el tamaño original que se ha subido, cuando los abro, con cualquier editor , me doy cuenta de que no esta toda la información en algunos ficheros, incluso en algunos ficheros de texto, están las mismas lineas duplicadas. ¿?
He probado tanto definiendo el tipo de transferencia como ftbinary o ftascil, con el mismo resultado.
Si abro los ficheros en el sitio ftp, los ficheros se suben correctamente.
este es el código que utilizo....

Código Delphi [-]
 ftp := TIdFTP.Create(nil);
    ftp.TransferType := ftbinary;
    if conectaftp then
    begin
      try
        ftp.List(StringList, '????' + crepres + '.*', false);
        BARRA.Max := StringList.Count;
        for i := 0 to StringList.Count - 1 Do
        begin
          mensaje.Lines.Add('Descargando ' + ftp.DirectoryListing[i].FileName);
          BARRA.Position := BARRA.Position + 1;
           ftp.Get(ftp.DirectoryListing[i].FileName,
            cdirec + '\' + ftp.DirectoryListing[i].FileName,true);
        end;
      except
        mensaje.Lines.Add('No se pudo bajar:' + ftp.DirectoryListing[i]
            .FileName + #13 + ' Compruebe si dispone de conexión a internet ');
        APPLICATION.processmessages;

      end;

¿ alguien puede aportarme un poco de luz sobre el particular ?

Realiza la compresion antes de la descarga
 

Saudos, seria conveniente que realices la compresion de los archivos antes de descargarlos, de esta forma reducirias la posibilida de errores y te daras cuenta que archivos estan dañados.