procedure TfrmMain.CatchException(Sender: TObject; E: Exception);
var
  LOraError: EOraError;
  LOraCode: Integer;
  LText: UTF8String;
begin
  if E is EOraError then
  begin
    LOraError := EOraError(E);
    LOraCode := LOraError.ErrorCode;
    if (LOraCode = 3113) or // 3113: принят сигнал конца файла по коммуникационному каналу
      (LOraCode = 3114) or // 3114: нет связи с ораклом
      (LOraCode = 12560) or // 12560: TNS:ошибка адаптера протокола
      (LOraCode = 28) or // 28: ORA-00028: Ваш сеанс удален
      (LOraCode = 1012) // 1012: ORA-01012: Вы не не вошли в систему
    then
    begin
      GMngDB.DefSession.Connected := False;
      FDBSession.Connected := False;
      LText := Format
        ('OnException: Sender - %s. OraError. Code = %d; ErrorText = "%s"',
        [Sender.ClassName, LOraCode, LOraError.message]);
      AddLog(LText); //запись в лог
    end
    else
      RaiseOraError(LOraCode, LOraError.message);
  end
  else
    RaiseError(E.message);
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  Application.OnException := CatchException;
  ...
end;

function CallForm: HRESULT;
var
  LForm: <class нужной формы>;
begin
  try
    LForm := <class нужной формы>.Create(Application);
    LForm.Init;
    LForm.Show;
    Result := 0;
  except
    on E: Exception do
    begin
      ShowDetailExceptionDlg(E); //это своя процедура отображения сообщений
      Result := -1;
    end;
  end;
end;