No tópico original quem criou esse código diz que esta tento um problema de não estar desconectando do servidor e da o seguinte erro "Read timed out",para quem testar e arrumar postar aqui o resultado.


codigo:

procedure TForm2.Button1Click(Sender: TObject);
var
clienteFtp: TIdFTP;
begin
clienteFtp := TIdFTP.Create(Self);
try
with clienteFtp do
begin
Username := 'nome';
Password := '1234';
Host := '192.168.1.1';
Passive:=True;
ReadTimeout:=10000;
Connect; // conecta
if connected then
begin
ShowMessage('Conectado ao servidor FTP');
Put(TPath.Combine(TPath.GetDocumentsPath, 'subir.txt'), 'subir.txt', False);
Disconnect;
end;

end;
except
on EConvertError do
ShowMessage('Erro ao Conectar ao servidor FTP');
end;
end;