[taurux]

Hola:

Estoy intentando hacer un sencillo cliente ftp. A la hora de conectarme me da el siguiente error:
Project Project1.exe raise exception class EldSocketError with message 'Socket Error # 10054 connection reset by peer'. Process stopped. Use step to run to continue.

Y el codigo que tengo puesto es el siguiente:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
idftp1.Host:=edit1.Text; //207.46.133.140 - la de microsoft
idftp1.Port:=strtoint(edit4.Text); //21
idftp1.Username:=edit2.Text; //anonymous
idftp1.Password:=edit3.Text; //anonymous
try
begin
idftp1.Connect();
statusbar1.SimpleText:='Conectado...';
end
except
memo1.Lines.Add('Error durante la conexion');
end;
end;

y el error creo que lo da el metodo Connect().
El ejemplo del Indy tambien me da el mismo fallo.
He cerrado el proxy que tengo instalado para evitar problemas pero ni aun asi. He hecho pruebas con clientes ftp como Cute y FTP Explore y funcionan (aunque a veces tambien me dan problemas).

Saludos y gracias.