Помогите с добовлением компонентов

Привет всем.
Люди помогите с написанием кода.
как можно организовать структуру добовляемого компонента с набором функций для него.
Например:
На главном окне есть кнопка1 которая при нажатии вызывает другое окно и внедряет в него кнопку2 таким мокаром
TButton *Button2 = new TButton(Form1);
Button2->Left =10;
Button2->Top =10;
Button2->Caption =10;
...
Form1->InsertControl(Button2);// внедряю кнопку

Вот кнопка отображается на диалоговом окне.
Но как ей задать функции.
Ну хотябы MessageBox(""); при клике на её.?

может другой подход надо искать для решения такой задачи? :-?

надеюсь обяснил нормально