ImageList 载入图片

Var
  aBitmap: TBitmap;
begin
  aBitmap := TBitmap.Create;
  try
    aBitmap.LoadFromFile('00.bmp');
    ImageList1.AddMasked(aBitmap, aBitmap.TransparentColor);
  finally
    aBitmap.Free;
  end;
end;