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

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

delete  My_Panel;
  My_Panel = NULL;

static AnsiString A;
A = Text; // Или как-то еще
delete this;
return A;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        TPanel *panel = new TPanel(this);
        panel->Width = 200;
        panel->Height = 100;
        panel->Left = 100;
        panel->Height = 100;
        panel->Parent = this;
        panel->OnDblClick = OnPanelDblClick;
 
        TComboBox *combo = new TComboBox(panel);
        combo->Parent = panel;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::OnPanelDblClick(TObject *Sender)
{
        TPanel *panel = dynamic_cast<TPanel*>(Sender);
        if (panel)
        {
                delete panel;
        }
}

class pnl : TPanel
{
    public:
        TComboBox *combo;
        
        __fastcall pnl( TObject *own ) : TPanel( own ) 
        {
            combo = new TComboBox( this );
            combo->Parent = this;
            OnDblClick = & OnPanelDblClick;
        }
        void __fastcall OnPanelDblClick( TObject * Sender )
        {
            TPanel * panel = dynamic_cast< TPanel * >( Sender );
            if ( panel )
            {
                delete panel;
            }
        }
}

class TMyPanel : public TPanel
{
    public:
        TComboBox *combo;
        
        __fastcall TMyPanel( TObject *own ) : TPanel( own )
        {
            this->Parent = (TWinControl*)own;
            this->Left = 100;
            this->Top = 100;
            this->Width = 100;
            this->Height = 100;
            combo = new TComboBox( this );
            combo->Parent = this;
            combo->OnKeyPress = OnComboKeyPress;
        }
 
        void __fastcall OnComboKeyPress(TObject *Sender, char &Key)
        {
                TComboBox *combo = dynamic_cast<TComboBox*>(Sender);
                if (combo)
                {
                        delete combo->Parent;
                }
        }
 
        void destroy_self()
        {
                OnComboKeyPress(combo, 13);
        }
};
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        // èñêëþ÷åíèé íåò
        TMyPanel *panel = new TMyPanel(this);
        panel->destroy_self(); // íî åñëè ðàñêîììåíòèðîâàòü ýòó ñòðî÷êó,
                               // òî ïðè íàæàòèè ëþáîé êëàâèøè â ComboBox âûëåçåò îøèáêà "Control has no parent window",
                               // ïî÷åìó âûëåçàåò ýòà îøèáêà?
}

PostMessage(FormHandle, WM_USER+2, (UINT)panel, 0); // отправляем сообщение на обработку с целью удаления объекта
 
// Для этого обработчика нужно поместить компонент ApplicationEvents на форму
void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg,
      bool &Handled)
{
        if (Msg.message == WM_USER+2)
        {
                TControl *control = (TControl*)Msg.wParam;
                if (control != NULL) delete control;
        }
}

OnComboKeyPress(combo, 13);