anchor.diff:    finally
       xcfg.Free;
     end;
  +  //
  +  xcfg := TXMLConfigStorage.Create(getDocPath + 'dockingopts.xml',false);
  +  try
  +    DockMaster.SaveSettingsToConfig(xcfg);
  +    xcfg.WriteToDisk;
  +  finally
  +    xcfg.Free;
  +  end;
   end;
   
   procedure TCEMainForm.LoadDocking;
  
positive.code:   xcfg: TXMLConfigStorage;
    str: TMemoryStream;
  begin
    if not fileExists(getDocPath + 'docking.xml') then
      exit;
    xcfg := TXMLConfigStorage.Create(getDocPath + 'docking.xml', true);
    try
      try
        DockMaster.LoadLayoutFromConfig(xcfg, false);
      except
        exit;
      end;
      str := TMemoryStream.Create;
      try
        xcfg.SaveToStream(str);
        str.saveToFile(getDocPath + 'docking.bak')
      finally
        str.Free;
      end;
    finally
      xcfg.Free;
    end;
  end;
  
  
negative.code:   win.Show;
    win.BringToFront;
  end;
  {$ENDREGION}
  
  {$REGION project ---------------------------------------------------------------}
  