TServerLogRecordEvent = procedure (Sender: TObject; Number: Integer; var LogRecord: TLogRecord) of object