anchor.diff:      itm.libFile := row.SubItems.Strings[0];
       itm.libSourcePath := row.SubItems.Strings[1];
     end;
  +  LibMan.libraries.EndUpdate;
     LibMan.updateDCD;
   end;
   
  
positive.code: var
    itm: TLibraryItem;
    row: TListItem;
    i: NativeInt;
  begin
    List.Clear;
    if LibMan = nil then
      exit;
    for i := 0 to LibMan.libraries.Count - 1 do
    begin
      itm := TLibraryItem(LibMan.libraries.Items[i]);
  
negative.code: begin
    if LibMan = nil then
      exit;
    LibMan.libraries.BeginUpdate;
    LibMan.libraries.Clear;
    for row in List.Items do
    begin
  