Тип события, при логировании действия
TActionLoggingEvent = procedure(Sender: TObject; ActionCode, ActionStatus: integer; AObject: TObject) of object;