Текст в программе после нажатия одной из кнопок меню

//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TButton *Button1;
        TListBox *ListBox1;
        TMemo *Memo1;
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall FormCreate(TObject *Sender);
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
         void __fastcall TestClick(TObject *Sender); //Вот здесь вот
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Math.hpp" //Подключаем модуль Math.hpp
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
 void __fastcall TForm1::TestClick(TObject *Sender)  //Описываем созданную ранее нами функцию
 {
      ListBox1->Items->Text=Memo1->Lines->Strings[RandomRange(0,Memo1->Lines->Count)]; //Выбор произвольной строки из Memo1 и помещение ее в ListBox1
 }
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TMainMenu *mn=new TMainMenu(Form1);  //Динамически создаем TMainMenu для формы
 
TMenuItem *mi=new TMenuItem(mn); //Создаем TMenuItem для созданного ранее MainMenu
 
mi->Caption="Test";  //Заголовок кнопки
mi->OnClick=TestClick;  //Присваиваем динамически созданную функцию событию OnClick нашей кнопки
mn->Items->Add(mi); //Добавляем к MainMenu
 
mi=NULL;   //Очищаем
delete mi;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 Randomize();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ItemClick(TObject *Sender);

void __fastcall TForm1::ItemClick(TObject *Sender)
{
  ListBox1->Items->Add("Test Text");
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TMenuItem *MI = new TMenuItem(MainMenu1);
  MainMenu1->Items->Add(MI);
  MI->Caption = "Dynamic-created MenuItem";
  MI->OnClick = ItemClick;
}