anchor.diff:    TLogData = Record
       Logtype : TLogType;
       Time : TDateTime;
  -    ThreadID : Cardinal;
  +    ThreadID : TThreadID;
       Sender, Logtext : AnsiString
     End;
   
  
positive.code:   FLock.Acquire;
    try
      if assigned(FFileStream) And (logType in FSaveTypes) then begin
        if TThread.CurrentThread.ThreadID=MainThreadID then tid := ' MAIN:' else tid:=' TID:';
        s := FormatDateTime('yyyy-mm-dd hh:nn:ss.zzz',now)+tid+IntToHex(TThread.CurrentThread.ThreadID,8)+' ['+CT_LogType[logtype]+'] <'+sender+'> '+logtext+#13#10;
        FFileStream.Write(s[1],length(s));
      end;
      if Assigned(FOnInThreadNewLog) then begin
  
negative.code:   TLogType = (ltinfo, ltupdate, lterror, ltdebug);
    TLogTypes = set of TLogType;
  
    TNewLogEvent = procedure(logtype : TLogType; Time : TDateTime; ThreadID : TThreadID; Const sender, logtext : AnsiString) of object;
  
    TLog = Class;
  
  