[Casimiro Notevi]

Empezado por Neftali [Germán.Estévez]

Estaría bien saber algo más de información.
¿El error es seguro de conexión?
¿Cual es el error exactamente? "No se conecta", no es muy explicativo...
Es un servidot FTP/FTPS
...

Además de lo comentado por Neftali, hay que añadir que ese código es "peligroso", me explico:

Código Delphi [-]
FTP.ChangeDir( '/public_html' );
FTP.Put( sArchivo, ExtractFileName( sArchivo ), False );   // Envías el fichero
FTP.Disconnect;  // ¡¡¡ Desconectas !!!  :/
FTP.Free;  //  Y liberas, cuando todavía puede que ni haya enviado y/o conectado  :O
Label2.Caption := 'Archivo: Cargado exitosamente';

Es probable que en la mayoría de ocasiones, desconectes la conexión antes de que suba el fichero.

La desconexión debe hacerse al terminar, o en el evento "AfterPut", para estar seguro de que ya terminó de subir el fichero.