Niszczenie obiektu poza zasięgiem

Witam.
Chciałbym stworzony dynamicznie obiekt po naciśnięciu jednego przycisku kasować naciśnięciem innego przycisku. Jak rozwiązać problem zasięgu zmiennych?

void __fastcall TForm1::Nowy1Click(TObject *Sender)
{
TMemo *memo1 = new TMemo(this);
memo1->Show();
memo1->Parent = Form1;

}
//---------------------------------------------------------------------------


void __fastcall TForm1::Zamknij2Click(TObject *Sender)
{

delete memo1;
}

Dodaj zmienna do klasy

i nie zapomnij poprawić:

void __fastcall TForm1::Zamknij2Click(TObject *Sender)
{
    delete memo1;
    memo1 = 0;
}