如何实现ImageList中的所有Images输出到同一个bmp文件中

]、。·ˉˇ¨〃々—～‖…’”〕〉》」』〗】∶！＂＇），．：；？］｀ procedure SaveImageListToBmp(AImageList: TImageList; ABitmap: TBitmap);

const

 Spacing = 5;

var

 i: integer;

 FBitmap: TBitmap;

begin

 FBitmap := TBitmap.Create;

 try

   ABitmap.Width := AImageList.Count * (AImageList.Width + Spacing);

   ABitmap.Height := AImageList.Height;

   for i := 0 to AImageList.Count - 1 do

   begin

     AImageList.GetBitmap(i, FBitmap);

     ABitmap.Canvas.Draw(i * (AImageList.Width + Spacing), 0, FBitmap);

   end;

 finally

   FBitmap.Free;

 end;

end;