Konwersja obrazka ICO do BMP

Aby po kliknięciu przycisku Button1 dokonać konwersji obrazka w formacie ICO do obrazka w formacie BMP:

Unit1.cpp

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

   ICO->LoadFromFile("plik.ico");

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

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