anchor.diff:  var
     BufferSize: ULONG;
     status: ULONG;
  -//  BOOL TraceOn = TRUE;
  -//  BOOL bTraceAlreadyStarted = FALSE;
   begin
     FOwner := AOwner;
   
  
positive.code:   FShouldDebugLastTick: Cardinal = 0;
  
  const
    // GUID that identifies your trace session.
    // Remember to create your own session GUID.
    SessionGuid: TGUID = '{FADEA67E-0EE9-452B-AF04-22E342D1227A}';
  
  function GetDebugManager(AOwner: HWND): TDebugLogManager;
  
negative.code:   pSessionProperties.MaximumFileSize := 1;  // 1 MB
    pSessionProperties.LoggerNameOffset := sizeof(EVENT_TRACE_PROPERTIES);
    pSessionProperties.LogFileNameOffset := sizeof(EVENT_TRACE_PROPERTIES) + sizeof(LOGSESSION_NAME);
    StrPCopy(PWideChar(PByte(pSessionProperties) + pSessionProperties.LogFileNameOffset), FDebugLogFileName);
  
    status := StartTrace(@FSessionHandle, PWideChar(LOGSESSION_NAME), pSessionProperties^);
    if ERROR_ALREADY_EXISTS = status then
  