anchor.diff:    ColImage: Integer;
     sfi: SHFILEINFO;
   begin
  +  if (Items.Count = 0) and (FArchive = nil) then
  +    Exit;
     Items.BeginUpdate;
     try
       Items.Clear;
  
positive.code:   Images := TImageList.Create(Self);
    Bmp := TBitmap.Create;
    try
      Bmp.LoadFromResourceName(0, 'AbComCtrls_Zip');
      Images.AddMasked(Bmp, clBlack);
      Icon := TIcon.Create;
      try
  
negative.code:   FHeaderImages := TImageList.Create(Self);
    Bmp := TBitmap.Create;
    try
      Bmp.LoadFromResourceName(HInstance, 'AbComCtrls_Lock');
      FHeaderImages.AddMasked(Bmp, clBlack)
    finally
      Bmp.Free;
  