[TOPX]

Lo único malo que ví en su código fue que sobraría el end;, pero igual, podría ser:

Código Delphi [-]
  with TIdFTP.Create(nil) do
  begin
    try
      Username := 'nombre_de_usuario';
      Password := 'contraseña';
      Host := 'ftp.servidor.com';
      Connect; 
      if Connected then
      begin
        ShowMessage('Conexión exitosa.');
        Disconnect;
      end
      else
      begin
        ShowMessage('Conexión fallida.');
      end;
    finally
     Free;
    end;
  end;