Yo utilizo el componente NMTP que viene con Delphi, me conecto al servidor y luego hago:
Código Delphi
[-]
Try
NMFTP.Rename(cFichero,EdFichero.Text);
Except
ShowMessage('Error al cambiar de nombre al fichero.');
end;
Y me conecto así:
Código Delphi
[-]
procedure TfrExpterminales.btConectarClick(Sender: TObject);
begin
btDesconectar.Enabled :=True;
btListar.Enabled :=True;
btEliminar.Enabled:=True;
btSubir.Enabled :=True;
btDescargar.Enabled :=True;
btConectar.Enabled :=False;
pnEstado.Caption:='Servidor Conectado';
pnEstado.Font.Color:=ClGreen;
pnEstado.BevelOuter:=bvRaised;
NMFTP.Host := HostTxt.Text;
NMFTP.Port := StrToInt(PortTxt.Text);
NMFTP.Timeout := 5000;
NMFTP.UserID := UserTxt.Text;
NMFTP.Password := PassTxt.Text;
try
NMFTP.Connect;
except
On E:Exception do
writeln(E.message);
end;
end;
Un Saludo.