Cliente FTP - Problema!

[adcoma]

Estoy tratando de programar un cliente FTP en Delphi, el cual la unica accion a realizar es conectarse - subir archivo - desconectarse.

He intentado programarlo con Indy en Delphi 7 y Delphi 2006 y me da error 10054, tambien intente con los componentes de ICS y se me congela.

Estoy programado ahora en base a el ejemplo que tiene la web de JM que hace uso directo de wininet y sube el archivo correctamente pero nunca me avisa que subio correctamente y se congela la aplicacion.

Se que subio correctamente ya que consulto con filezilla y si esta arriba el archivo y al descargarlo se ejecuta sin problemas.

Por cierto pensando en que pudiera ser el server he subido el mismo archivo desde filezilla y desde bulletproof y no me da ningun problema.

Este es el codigo que uso para subir los archivos:

Código Delphi [-]
  
if ftp.Upload(Edit_File.Text, ExtractFileName(Edit_File.Text)) then
  MessageBox(handle, PChar('El archivo local [' + Edit_File.Text + '] ha sido almacenado en "'
    + ExtractFileName(Edit_File.Text) + '".'), 'Envío', MB_ICONINFORMATION)
else
  MessageBox(handle, PChar('Ha ocurrido un error durante el envío del archivo:' #10#13
    + ftp.ResponseText), 'Envío', MB_ICONERROR);

A alguien le a pasado lo mismo?
Alguna ayuda?

Agradesco mucho su atencion!!!
Saludos.

[Genner]

mm conectarse, subir archivo y desconectarse ?
pues yo hago algo asi como esto
Utilizo indy clientes componente TidFtp

Código Delphi [-]
  ftp.Host:='servidor'
  ftp.Username:='usuario'
  ftp.Password:='password'
  ftp.Connect();
  ftp.Put(archivo,archivo.pdf,true');
  ftp.Disconnect;

si te sirve de algo.