Как скопировать из формы в форму

[Guest]

Проблема вот в чём.
Есть две формы, на каждой 10 Edit'ов
Пользователь заполняет поля для редактирования
на одной форме, жмёт на кнопку, содержимое всех полей
копируется в эдиты на другой форме.
Имена эдитов на формах совпадают.

Хотел написать функцию которая автоматически это делает
для произвольного числа полей.

Или в качестве аргумента (arg) в неё передавать имя эдита, но как
сделать?

Form2->arg->Text = Form1->arg->Text;
Не понимаю..

Подскажите пожалуйста.
Делаю на билдере, это не оффтопик интересно?

 

[zubr]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
for(int i=0; i<Form1->ComponentCount; i++)
{
 if(dynamic_cast<TEdit *>(Form1->Components[i])!=NULL)
 {
  dynamic_cast<TEdit *>(Form2->FindComponent(Form1->Components[i]->Name))->Text=
   dynamic_cast<TEdit *>(Form1->Components[i])->Text;
 }
}
}