anchor.diff:  function PostToLog(const ADateTime: TDateTime; const Text: string; const Level: TLogLevel): boolean; overload;
   function PostToLog(const ADateTime: TDateTime; const Text: string; const AClear: boolean; const Level: TLogLevel): boolean; overload;
   procedure EraseLog;
  +procedure TruncateLog(const AMaxSize: longint);
   
   implementation
   
  -uses SysUtils, WThread;
  +uses StrUtils, SysUtils, WThread;
   
   const
       WM_LOG      = WM_WTHREAD_BASE + 1;
       WM_ERASE    = WM_WTHREAD_BASE + 2;
  +    WM_TRUNC		= WM_WTHREAD_BASE + 3;
   
   type
       PLogRecord = ^TLogRecord;
  
positive.code:     FreeMem(p);
  end;
  
  procedure TLogThread.WMErase(var Msg: TThreadMessage);
  var f: File;
  begin
  
negative.code: 
  initialization
      FileOpened := false;
      WLogLevel := WLL_NORMAL;
      WLogEnabled := InitLogs;
      FirstLine := true;
      WLogClearOnStart := true;
  
  finalization
      DoneLogs;
  