unit NoLogger; interface uses mybean.core.objects, Classes, SysUtils, StrUtils, WindowsSysVersion, superobject, Dialogs, IdHTTP, ULogger, InterfaceLogger, DateUtils, BaseLogger; type TNoLogger = class(TBaseLogger, ILogger) public procedure Log(AMessage, ACode, ALoginName, AStrLevel: string); overload; override; stdcall; end; implementation { TNoLogger } procedure TNoLogger.Log(AMessage, ACode, ALoginName, AStrLevel: string); begin end; end.