anchor.diff:    private
       fProj: TCEProject;
       fSyncroMode: boolean;
  -    fSyncroPropValue: string;
  +    fSynchroItem: TStringList;
  +    fSynchroValue: TStringList;
       function getGridTarget: TPersistent;
       procedure setSyncroMode(aValue: boolean);
       function syncroSetPropAsString(const ASection, Item, Default: string): string;
  
positive.code:     storage.free;
      src_list.free;
      fProj.endUpdate;
      fSyncroPropValue := '';
    end;
  end;
  
  
negative.code: 
  procedure TCEProjectConfigurationWidget.btnSyncEditClick(Sender: TObject);
  begin
    fSynchroValue.Clear;
    fSynchroItem.Clear;
    if fProj = nil then exit;
    syncroMode := not syncroMode;
  end;
  