anchor.diff:    ImgList, MenuImgList, Menus, StdCtrls, Buttons, ExtCtrls, PaintPanel,
     CleartypeDrawCharacter, mbColorPalette, mbColorPreview,
     ComCtrls, ActnList, PalUtils, KMDActionInterfaces, Vcl.ExtDlgs,
  +  Vcl.Imaging.PngImage,
     System.Actions, System.ImageList;
   
   type
  
positive.code:     SetLength(FReadOnlyIcons, ci.Count);
      for i := 0 to ci.Count - 1 do
      begin
        Stream.Position := p;
        FReadOnlyIcons[i] := TIcon.Create;
        if List[i].Colors = 0
          then cd := '24 bit'
          else cd := IntToStr(List[i].Colors);
        if List[i].Width = 0 then w := 256 else w := List[i].Width;
        if List[i].Height = 0 then h := 256 else h := List[i].Height;
  
        FReadOnlyIcons[i].SetSize(w, h);
        FReadOnlyIcons[i].LoadFromStream(Stream);
  
        memoReadOnlyIcons.Lines.Add(Format('Icon #%d: %d x %d, %s colour',
          [i+1, w, h, cd]));
  
negative.code:     FBitmaps[beb].Free;
  
    for i := 0 to High(FReadOnlyIcons) do
    begin
      FReadOnlyIcons[i].Free;
    end;
    SetLength(FReadOnlyIcons, 0);
  
    FLastInsertFont.Free;
  