except
      on E: Exception do
      begin
        s := UpperCase(E.Message);
        if (Pos('CONNECTION FAILURE', s) > 0) then
        begin
          RemoteServerStatus := False;
          RecordStatusToDB('', STAT_CON_FAILURE, True);
        end
        else if (Pos('DOES NOT EXIST', s) > 0) then
        begin
          RemoteServerStatus := False;
          RecordStatusToDB('', STAT_CON_DOWN, True);
        end
        else
          RecordStatusToDB(E.Message, STAT_OTHER, True);
        try
        qryRemote.Connection.Rollback except
        end;
      end;

[?-ask-?mat_koder] Which form that can i put your code ?

try
 // try open the database connection
  MyConnection.Active := True;
  ...
  check if the user/password combination is exist
  ...
  bla..bla
   ...
except
  .... your exception's handler
end;