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