anchor.diff:  var
     PS: TPerfSectionDev;
   begin
  +  if Self = nil then Exit;
  +
     fStackCPU.Clear;
     fStackGFX.Clear;
     for PS := LOW_PERF_SECTION to High(TPerfSectionDev) do
  
positive.code:   x, y: Single;
    lbl: string;
  begin
    lastTick := 0;
    cCount := 0;
  
  
negative.code:   I: TPerfSectionDev;
    S: TStringList;
  begin
    if Self = nil then Exit;
  
    ForceDirectories(ExtractFilePath(aFilename));
  
    S := TStringList.Create;
  