Передача метода класса в качестве параметра в другой метод

[Dmytry87]

Добрый день, прошу помочь вот с чем:
Есть форма TForm3, на которой происходит ввод некоторых данных о человеке.
Есть другие формы TForm1,TForm2...., на которых иногда требуется ввести данные о человеке (в форме TForm3), а после того как нажмется кнопка "ОК" в форме TForm3, совершить какие-то действия в форме,откуда запросили вввод данных(в форме TForm1,TForm2).

Пытаюсь сделать так:
в TForm3

//---------------------------------------------
typedef bool ( TForm1::* FuncPTR )( char * );
//---------------------------------------------
bool TForm3::SetAdresant(FuncPTR function)
{
//    form = frm;
    func = function;
    return true;
}
//---------------------------------------------
void __fastcall TForm1::BtnOKClick(TObject *Sender)
{
(form->*func)( tmp );
}
//---------------------------------------------

В форме TForm1 вызов ввода делаю так:

void __fastcall TForm1::btnNewClick(TObject *Sender)
{
    Form3->SetAdresant(this,&Form1::SetPeople);
    Form3->Show();
}

1. И все работает, по "ок" вызывается фукция SetPeople, но как сделать чтобы можно было бы вызывать ввод данных из обеих (произвольного числа) форм??

2. Может поскажете альтернативный вариант решения проблемы