Transferencia de archivos

[Silver]

Hola, me gustaría que me expusierais el código necesario para transferir cualquier tipo de archivo desde un PC hasta otro mediante los componentes TClientSocket y TServerSocket, u otros componentes más eficaces (que disponga Delphi) para realizar dicha tarea. Respecto a los FTP, no creo que sean necesarios, ya que, el FTP envía el archivo a un servidor, y a mi me interesa de que se envie un archivo mediante una IP y un puerto determinado. ¡Gracias!

EnviarArchivo(Ordenador,Archivo,CarpetaDestino);

Más o menos así de simple. :-D