Delphi - Conexiones FTP

Me gustaria que alguien me explicara como realizar una conexion FTP con delphi para subir un archivo.

Gracias

begin
idFTP1.Host:='ftp.cualquiera.com';
idFTP1.User:='Anonymous';
idFTP1.Password:='Guest';
idFTP1.Connect;
IdFTP1.TransferType:=ftBinary;
idFTP1.Put(ArchivoLocal, ArchivoRemoto,false);
idFTP1.Disconnect;
end;

Vale, eso ya lo he intentado, pero me lanza una excepcion de protocolo. ¿a que se debe?

Me parece que el problema está del lado del servidor entonces. ¿Has probado con diferentes servidores FTP?.
En mis pruebas primero me instalo un servidor en mi máquina (para el caso el Serv-U de Rhino Soft www.serv-u.com ) para luego probar con diferentes servidores.
¿concretamente cuál es el mensaje de la excepción?.