anchor.diff:    I: TPerfSectionDev;
     S: TStringList;
   begin
  +  if Self = nil then Exit;
  +
     ForceDirectories(ExtractFilePath(aFilename));
   
     S := TStringList.Create;
  
positive.code: var
    form: TFormPerfLogs;
  begin
    form := TFormPerfLogs.Create(aContainer);
  
    form.Parent := aContainer;
  
negative.code: var
    PS: TPerfSectionDev;
  begin
    if Self = nil then Exit;
  
    fStackCPU.Clear;
    fStackGFX.Clear;
    for PS := LOW_PERF_SECTION to High(TPerfSectionDev) do
  