Создание рисунка на TPanel

__fastcall TMyPanel::TMyPanel(TComponent* Owner, TForm *Form, TImage *img):TPanel(Owner)
{
    this->Parent = Form;
    this->Width = 200;
    this->Height = 200;
    this->Left = 0;
    this->Top = 0;
    this->Caption="";
 
    this->Canvas->Draw(0,0,img->Picture->Graphic);
}

class TMyPanel: public TPanel  {
    private:
    public:
        __fastcall TMyPanel(TComponent* Owner, TForm *Form, TImage *img);
    __published:
        __property Canvas;
};

    TMyPanel *Pnl = new TMyPanel(this, Form1, Image1);

    private:
        TBitmap *ImageBox;
    public:
        __fastcall TMyPanel(TComponent *Owner, TForm *Form, TBitmap *img);

void __fastcall TMyPanel::Paint()
{
    // прорисовка TPanel
    /*
    ...
    */
 
    //перерисовываем рисунок на TPanel
    this->Canvas->Draw(0,0, this->ImageBox);
}

    Graphics::TBitmap *ptBmp;
    ptBmp=new Graphics::TBitmap;
    this->ImageList1->GetBitmap(0, ptBmp);
    TMyPanel *Pnl= new TMyPanel(this, Form1, ptBmp);

    //инициализация
     FLevelImages[Id]->TransparentMode=tmAuto;
     FLevelImages[Id]->Transparent=true;
    //отрисовка
     Bitmap->Canvas->Draw(Level.x,Level.y,LevelImages[LevelId]);
}