If FTP.Connected = false then
begin
  FTP.Host := 'ftp://somewhere.com';
  FTP.Username := 'username';
  FTP.Password := 'password';
  FTP.Port := 21;
    try
      FTP.Connect;
    except
      on E: Exception do
         showmessage(E.Message);
    end;
    end
else
  ShowMessage('Not Connected');