anchor.diff:  procedure TMainForm.miToolsShowEnvVariablesClicked(Sender: TObject);
     function LGetEnvVarValue(const AVariable: string): string;
     begin
  -    Result := Format('%s = ''%s''', [AVariable, GetEnvironmentVariable(AVariable)]);
  +    Result := Format('%s = ''%s''', [AVariable, SysUtils.GetEnvironmentVariable(AVariable)]);
     end;
   begin
     RichView.Clear;
  
positive.code:   lbIndex.Items.Clear;
    DisplayedIndex.Clear;
    IndexLoaded := False;
  end;
  
  procedure TMainForm.CorrectNotesPositions(Topic: TTopic; AText: pchar);
  
negative.code:         OpenFile(lFilename, '', true);
      end;
    end;
    // This is just for fun! ;-)
    {$IFDEF ABOUT_SYSMENU}
    hSysMenu := GetSystemMenu(self.WinHandle, false);
    AppendMenu(hSysMenu, MF_SEPARATOR, 0, nil);
    AppendMenu(hSysMenu, MF_STRING, ID_ABOUT, PChar('&About fpGUI Toolkit...'));
    {$ENDIF}
  end;
  
  procedure TMainForm.MainFormDestroy(Sender: TObject);
  