Konwersja obrazka WMF (lub EMF) do BMP

Aby po kliknięciu przycisku Button1 dokonać konwersji obrazka w formacie WMF (lub EMF) do obrazka w formacie BMP:

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   TMetafile *WMF = new TMetafile();
   Graphics::TBitmap *BMP = new Graphics::TBitmap();

   WMF->LoadFromFile("plik.wmf");

   BMP->Height = WMF->Height;
   BMP->Width = WMF->Width;
   BMP->Canvas->Draw(0, 0, WMF);
   BMP->SaveToFile("plik.bmp");

   BMP->Free();
   WMF->Free();
}