var

  VErrorMsg: IMarkSystemErrorMsg;

...

  try

    // что-то там

  except

    on E: Exception do begin

      VErrorMsg := TMarkSystemErrorMsg.Create(E.ClassName + ': ' + E.Message);

      FErrorNotifierInternal.Notify(VErrorMsg);

      //ToDo: LogError

    end;

  end;