Создать динамическую форму

//<<< Файл интерфейса "Unit1.h" >>>
 
#ifndef     Unit1H
#define     Unit1H
 
 
//------------------------------------------------------------------------------
//#include <Classes.hpp>
//#include <Controls.hpp>
//#include <StdCtrls.hpp>
#include <Forms.hpp>
//------------------------------------------------------------------------------
 
 
//##### ..... #####
//------------------------------------------------------------------------------
class   TSt : public    TForm
{
private:
 
public:
    // конструктор.
    __fastcall  TSt( TComponent* Owner );
 
};  //(class TSt)
//------------------------------------------------------------------------------
 
//------------------------------------------------------------------------------
#endif  //(Unit1H)
//==============================================================================
//<<< Файл реализации "Unit1.cpp" >>>
 
//##### ..... #####
#pragma hdrstop //--------------------------------------------------------------
#include    "Unit1.h"   // собственный интерфейс.
 
//------------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TSt*    St;
//------------------------------------------------------------------------------
 
 
//##### ..... #####
// конструктор.
__fastcall  TSt::TSt( TComponent* Owner )
    : TForm( Owner )
{
}

    TSt*    St = new    TSt( this );
    St->Parent = this;
    // ......... и т.д.

#pragma resource "*.dfm"

    TButton*  btn = new  TButton( this );
    btn->Parent = this;
    // ..... и т.д.

// конструктор.
__fastcall TForm1::TForm1( TComponent*  Owner )
    : TForm( Owner )
{
    // создание динам. формы.
    form = new  TForm( Application );
    form->Position = poScreenCenter;
    form->OnDestroy = &form_destroy;
    form_activated_first_time = true;
 
    // создание динам. клавиши (на динам. форме).
    TButton*  btn = new  TButton( form );
    btn->Parent = form;
    btn->SetBounds( 10, 10, 100, 50 );
    btn->Caption = "close";
    btn->OnClick = &btn_click;
}
// ---------------------------------------------------------------------------
// .........
void __fastcall  TForm1::FormActivate( TObject*  Sender )
{
    if ( form_activated_first_time  && form )
    {
        form_activated_first_time = false;
        form->Show();
    }
}

    form->OnDestroy = &form_destroy;
    form_activated_first_time = true;
 
    // создание динам. клавиши (на динам. форме).
    TButton*  btn = new  TButton( form );
    btn->Parent = form;
    btn->SetBounds( 10, 10, 100, 50 );
    btn->Caption = "close";
    btn->OnClick = &btn_click;

    form->OnDestroy = &form_destroy;
    form_activated_first_time = true;
 
    // создание динам. клавиши (на динам. форме).
    TButton*  btn = new  TButton( form );
    btn->Parent = form;
    btn->SetBounds( 10, 10, 100, 50 );
    btn->Caption = "close";
    btn->OnClick = &btn_click;