anchor.diff:  end;
   
   
  +function TFormMain.GetDevSettingsPath: UnicodeString;
  +begin
  +  Result := ExeDir + DEV_SETTINGS_XML_FILENAME;
  +end;
  +
  +
   // Load dev settings from kmr_dev.xml
   procedure TFormMain.LoadDevSettings;
   
  
positive.code: 
  var
    I: Integer;
    newXML: TKMXMLDocument;
    cp: TCategoryPanel;
    cpSurface: TCategoryPanelSurface;
  
negative.code:     end;
    end;
  
    newXML.SaveToFile(devSettingsPath);
    newXML.Free;
  end;
  
  