Как создать на форме батн или другой обьект?

TButton* b = new TButton(this);
b->Parent = this;
b->Left = 10;
b->Top = 10;

TButton *Button = new TButton(this);
 Button->Parent = this;
 Button->Top=10;
 Button->Left=10;
 Button->Name="Button";
 Button->Caption = "Hello";
 Button->TabOrder = 1;
 Button->Visible=true;
 Button->Enabled=true;

void __fastcall ButtonClick(TObject *Sender);

void __fastcall TForm1::ButtonClick(TObject *Sender)
{
ShowMessage("Hello from butt");
}

TButton *Button = new TButton(this);
Button->Parent = this;
Button->Top=10;
Button->Left=10;
Button->Name="Button";
Button->Caption = "Hello";
Button->TabOrder = 1;
Button->Visible=true;
Button->Enabled=true;
Button->OnClick = ButtonClick; // !!!!!!!!!!!

//Unit1.cpp
void __fastcall TForm1::FormCreate(TObject *Sender)
{
TButton* b = new TButton(this);
b->Parent = this;
b->Left = 10;
b->Top = 10;
b->OnClick = Click;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Click(TObject *Sender)
{
   ShowMessage("Hello");
}

//---------------------------------------------------------------------------
//unit1.h
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TButton *Button1;
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif