//------------------------------------------------------------------------------
//■関数名  EMFToBMP
//■用途    EMF->BMP変換
//■引数
//          BMP          ...TBitmapオブジェクト(戻り値)
//          OpenFileName ...EMFのファイル名
//------------------------------------------------------------------------------
procedure EMFToBMP(BMP :TBitmap;OpenFileName : String);
Var
 MetaFile:TMetafile;
begin
   Metafile:=TMetaFile.Create;
   BMP.PixelFormat:=pf24bit;
 try
   //ファイルの読み込み
   MetaFile.LoadFromFile(OpenFileName);
   //サイズ設定
   BMP.Height :=Metafile.Height;
   BMP.Width :=Metafile.Width ;
   //メタファイルの画像をBMPへ転送
   BMP.Canvas.Draw(0,0,MetaFile);
 finally
  MetaFile.Free;
 end;
end;