Descargar archivo por FTP con Indy

[ethangio]

Buen dia a todos ...

Tengo un problema con mi funcion que se conecta al servidor y descarga un archivo .exe.

En resumen:
Se conecta bien camba de directorio y descarga el archivo pero lo baja dañado no se ejecuta.

Mi codigo es este :

Pero en mi funcion de descargar archivo si lo descarga pero lo descarga dañado ( es un exe ) ... no se puede ejecutar, estoy usando los componentes indy ...

Tienen alguna sugerencia que estoy haciendo mal .. ??

Código Delphi:

Código Delphi [-]
      //Descargar
      StringList:= TStringList.Create;
      //Cambiamos de directorio
      IdFTP1.ChangeDir('/public_html/actualizacion/');
       try
        IdFTP1.List(Stringlist, '', false);
        for i := 0 to Stringlist.Count-1 Do
        begin
          if (StringList[i] <> '') and ((StringList[i]<>'.') and (StringList[i]<>'..')) then
          begin
            //Descarga
            idFTP1.Get( ExtractFileName(StringList[i]), 'Update\'+StringList[i], True , False );
          end;
        end;
        except
        IdFTP1.disconnect;
       end;
      StringList.Free;
    end;
  //============================================================================================

El archivo pesa 2574 bytes y cuando lo descarga el peso es de 2584 bytes y no se ejecuta, el archivo esta bien
lo descargo por filezilla y si sirve se ejecuta.