Создание и удаление форм

Form2=new TForm2(this);
// программа компилируется но ругается что то с адресом при использованиии
Form2->OnClose=CloseChildForm; // ругается компилятор на CloseChildForm
Form2->Show();

Application->CreateForm(__classid(TForm3), &Form3);
Form3->ShowModal();

TForm2 *MyForm = new TForm2(Application);
MyForm->ShowModal();
delete MyForm;

//...
USEFORM("Unit2.cpp", Form2);
//---------------------------------------------------------------------------
#include "Unit2.h"
//...
WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR cmdLine, int) // додано cmdLine
{
  TForm2 *MyForm;
  MyForm = new TForm2(NULL);
  MyForm->ShowModal();
//...
// Application->CreateForm(__classid(TForm2), &Form2); //не Available 
//...
  delete MyForm;
  MyForm = NULL;
  return 0;
}

void __fastcall TForm2::Button5Click(TObject *Sender)
{
        TForm3 *Form3;
         Form3=new TForm3(NULL);
        Form3->ShowModal();
     
}//кнопка по которой вызывается на основной форме
 
 
__fastcall TForm3::TForm3(TComponent* Owner)
    : TForm(Owner)
{
 Form3->Left=Screen->Width/2-(Form3->ClientWidth/2); // вот из за этого все проблемы
 Form3->Top=Screen->Height/2-(Form3->ClientHeight/2);    // вот из за этого все проблемы
}

void __fastcall TForm3::Button1Click(TObject *Sender)
{
 Form3->Left=Screen->Width/2-(Form3->ClientWidth/2); 
 Form3->Top=Screen->Height/2-(Form3->ClientHeight/2); 
}

Form3=new TForm3(NULL);

  MyForm = NULL;