fsMDIForm & fsMDIChild формы

[Larsus]

Привет пипл! Очень нужна помощь! Я в С++ новичек, так что не судите строго.
Вот имеется код на Delphi

//процедура закрытия дочерней формы
procedure TForm1.ChildFormClose(Sender: TObject; var Action: TCloseAction);
 BEGIN
  if Cont=true then Cont:=false;
  Action:= caFree;
 END;
//процедура создания дочерней формы
procedure Form1.ContractBClick(Sender: TObject);
 BEGIN
  if Cont=false then
     Begin
      Form2:=TForm2.Create(self);
      Form2.OnClose:=ChildFormClose;
      Form2.Show;
      Cont:=true;
     End;
 END;

переписываю тоже самое на С++

void __fastcall CloseChildForm(TObject *Sender, TCloseAction &Action)
{
 if (Org==true) { Org=false;
 }
 Action=caFree;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RzToolButton1Click(TObject *Sender)
{
 if (Org==true) {
	 Form2=new TForm2(Form2);
	 Form2->OnClose=CloseChildForm;
	 Form2->Show();
	 Org=false;
 }
}

нефига не работает, вот ошибка
[ILINK32 Error] Error: Unresolved external '__fastcall TForm1::CloseChildForm(System::TObj ect *, Forms::TCloseAction&)' referenced from C:\USERS\МЫ\DESKTOP\NEW\DEBUG\UNIT1 .OBJ

что я сделал не так, помогите разобраться