error en upload a servidor FTP
 

Buenas Tardes !!!!

Tengo una plicacion en delphi 5 donde envio un archivo de texto a un servidor FTP hasta hace uns dias todo funcionaba bien, pero ahora me da el error
" FTPException whit message '500 'RT 201,105,107,123,19,138':Command not understood' "

Siendo la direccion de mi red la que muestra ahi. Ya estube rebisando y el problema no esta en la conexion si no cuando se ejecuta el upload, y el archivo a subir si existe.

El codigo que utilizo para conectarme al Servidor FTP es el siguiente

NMFTP1.Host :='208.240.152.116';
NMFTP1.Port := 21;
NMFTP1.Timeout := 5000;
NMFTP1.UserID := 'agenjd/factura';
NMFTP1.Password := 'efactura';
try
NMFTP1.Connect;
except
On E:Exception do
writeln(E.message);
end;


///para subir el archivo txt
try
cFichero_a_Subir:='c:\facturas\'+edit4.text+'.txt';
NMFTP1.ChangeDir('/FACTURAS');
cFichero_Subido:=''+edit4.text+'.txt';
NMFTP1.UploadAppend(cFichero_a_Subir,cFichero_Subido );
Showmessage('Se envio correctamente el archivo .txt');
except
Showmessage('Error al enviar el archivo .txt');
end;

como lo mencione antes la conexion si funciona el problema es cuando queremos subir el archivo.


espero me puedan ayudar ya he buscado bastante y no encuentro el error


De Antemano muchas gracias