[barakuda]

Buenas,
Estoy desarrollando una app la cual recoge datos y posteriormente los debe enviar por ftp a un ordenador.
Siempre suelo desglosar la aplicación en otras para probar por separado y e aquí lo que vendría a ser la parte que envía el fichero.

El siguiente código conecta, valida y envía el fichero pero es como si una vez enviado no desconectase dándome en el terminal error "Read timed out"

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
var
   clienteFtp: TIdFTP;
 begin
   clienteFtp := TIdFTP.Create(Self);
   try
     with clienteFtp do
     begin
       Username := 'david';
       Password := '1234';
       Host := '192.168.1.25';
       Connect; // Conectamos
       if connected  then
       begin
       ShowMessage('Conectado al servidor FTP');
       Put(TPath.Combine(TPath.GetDocumentsPath, 'subir.txt'), 'subir.txt', False);
       Disconnect;
       end;

     end;
      except
    on EConvertError  do
    ShowMessage('Error Al Conectar al servidor FTP');
   end;
 end;

Como curiosidad si comento la linea:

Código Delphi [-]
Put(TPath.Combine(TPath.GetDocumentsPath, 'subir.txt'), 'subir.txt', False);

funciona, correctamente es decir, el cliente inicia sesión en el servidor de ftp, en el terminal muestra el mensaje y al aceptar se puede ver en el servidor que el cliente a desconectado.
Alguna sugerencia, gracias por adelantado.