Создание компонентов на форме внутри кода

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;//В данный класс(TForm1) добавляем в параметры Public следующую функцию:
    //Public: void __fastcall TForm1::OnEditClick(TObject *Sender);
//---------------------------------------------------------------------------
 
 
 
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    Form1->Width=550;
    Form1->Height=50;
    Form1->BorderStyle=bsNone;
    Form1->Left=Screen->Width/2 - Form1->Width/2;
    Form1->Top=Screen->Height/2 - Form1->Height/2;
    TEdit* Edit=new TEdit(Form1);//Пытаемся создать компонент Edit1 на форме...
    {
        Edit->Width=Form1->ClientWidth;//Получение ширины компонента Edit1, как ширина клиентской области окна
        Edit->Height=Form1->ClientHeight-25;//Получение высоты компонента Edit1, как клиентская высота Form1 минус 25(высота Edit)
        Edit->Text="Текст для проверки программы";//Текст, внутри компонента будет следующим...
        Edit->Visible=true;//Включение видимости компонента на форме
        Edit->Left=0;//Положение Edit1 слева равно нулю
        Edit->Top=0;//Положение Edit1 справа равно нулю
        Edit->Parent=Form1;//Установка для Edit родительского(главного) окна
        Edit->OnClick=OnEditClick;
    }
}
//---------------------------------------------------------------------------
 
 
//Объявление действий Нашей функции
void __fastcall TForm1::OnEditClick(TObject *Sender)
{
    TEdit* Edit=dynamic_cast<TEdit*>(Sender);//Как Я понимаю - здесь идёт получение компонента TEdit* из Form1(т.е. там, где была вызвана функция - тот элемент и берётся)
    if (Edit) Edit->Clear();//Очистка содержимого Edit
}

//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
    void __fastcall TForm1::OnEditClick(TObject *Sender);//Наша функция действий при клике на компонент
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif