//------------------------------------------------------------------------------
//■関数名  ICOToBMP
//■用途    ICO->BMP変換
//■引数
//          BMP          ...TBitmapオブジェクト(戻り値)
//          OpenFileName ...ICOのファイル名
//------------------------------------------------------------------------------
procedure ICOToBMP(BMP:TBitmap;OpenFileName: String);
Var
 Ico :TIcon;
begin
  Ico :=TIcon.Create;
  BMP.PixelFormat:=pf24bit;
 try
  BMP.Width  :=GetSystemMetrics(SM_CXICON);
  BMP.Height :=GetSystemMetrics(SM_CYICON);
  Ico.LoadFromFile(OpenFileName) ;
  DrawIconEx(BMP.Canvas.Handle, 0, 0, Ico.Handle, 0, 0, 0, 0, 3)
 finally
  Ico.Free;
 end;
end;