Hola.
Aquí tienes un ejemplo de envío de un fichero a un servidor ftp usando el componente idFTP:
Código Delphi
[-]
IdFTP1.Host:= NombreDelHost;
IdFTP1.UserName := NombreUsuario;
IdFTP1.Password := Password;
Try
IdFTP1.Connect;
except
ShowMessage('¡ATENCION! Problema de conexion, fichero no enviado');
Exit;
end;
IDFTP1.TransferType:=ftBinary;
IDFTP1.ChangeDir('CarpetaDestino'); Try
IDFTP1.Put('C:\RutaOrigen\NombreArchivoOrigen','NombreArchivoDestino');
except
ShowMessage('ATENCION! Problema al enviar el archivo');
end;
Espero que te sirva.
Saludos