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