Самоуничтожение панели

  // указатель на МоюПанель.
  TMy_Panel*  My_Panel;
 
  // создание и вывод на экран МоейПанели.
  My_Panel = new  TMy_Panel( this );
  My_Panel->Parent = this;
 
  // удаление МоейПанели с экрана и вообще.
  delete  My_Panel;
  My_Panel = NULL;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    if ( mp != NULL )
    {
        wchar_t c=VK_RETURN;
        mp->CB_OnKeyPress(mp->cb, c);
        mp = NULL;
    }
}

class TMyPanel : public TPanel
{
    public:
        TComboBox *combo;
        
        __fastcall TMyPanel( TObject *own ) : TPanel( own )
        {
            this->Parent = (TWinControl*)own;
            this->Width = 100;
            this->Height = 100;
            combo = new TComboBox( this );
            combo->Parent = this;
            combo->OnKeyUp = OnComboKeyUp;
        }
 
        void __fastcall OnComboKeyUp(TObject* Sender, Word &Key, TShiftState Shift)
        {
                TComboBox *combo = dynamic_cast<TComboBox*>(Sender);
                if (combo)
                {
                        delete combo->Parent;
                        test(); // тут мы можем предположить, что вылезет исключение, но увы - нет
                }
        }
 
        void test()
        {
                ShowMessage("I already removed!");
        }
};
 
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        TMyPanel *panel = new TMyPanel(this);
}

  combo->Parent = this;