我看过有一个朋友回答的可以将24位图片转为24位图标。代码如下，为什么我先用都可能实现存为24位图标，为什么现在存它就是256位图标呢？

procedure Bmp2Ico(bmp, ico: string); //bmp和ico是文件名
var
  IconSizeX : integer;
  IconSizeY : integer;
  myBmp : TBitmap;
  AndMask : TBitmap;
  XOrMask : TBitmap;
  IconInfo : TIconInfo;
  Icon : TIcon;
begin
  IconSizeX := GetSystemMetrics(SM_CXICON);
  IconSizeY := GetSystemMetrics(SM_CYICON);  myBmp := TBitmap.Create;
  myBmp.LoadFromFile(bmp);  AndMask := TBitmap.Create;
  AndMask.Width := IconSizeX;
  AndMask.Height := IconSizeY;
  AndMask.Canvas.Brush.Color := clBlack;
  AndMask.Canvas.Rectangle(0, 0, IconSizeX, IconSizeY);  XOrMask := TBitmap.Create;
  XOrMask.Width := IconSizeX;
  XOrMask.Height := IconSizeY;
  StretchBlt(XorMask.Canvas.Handle, 0, 0, IconSizeX, IconSizeY,
             myBmp.Canvas.Handle, 0, 0, myBmp.Width, myBmp.Height, SRCCOPY);  Icon := TIcon.Create;
  IconInfo.fIcon := true;
  IconInfo.xHotspot := 0;
  IconInfo.yHotspot := 0;
  IconInfo.hbmMask := AndMask.Handle;
  IconInfo.hbmColor := XOrMask.Handle;
  Icon.Handle := CreateIconIndirect(IconInfo);  AndMask.Free;
  XOrMask.Free;
  myBmp.Free;  Icon.SaveToFile(ico);
  Icon.Free;
end;请大家帮我测试。为什么我用这段代码保存的图标是256,本这上面这段代码是可以实现保存24位图标的。为什么在我的delphi中，上几次都可以实现保存24位图标。现在怎么保存都是256位图标呢？