Try the following - it works for me. It is from c++Builder 5 standard.
Good Luck - Rod
//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
void __fastcall FormCreate(TObject *Sender);
private: // User declarations
void __fastcall p_button_0OnClick(TObject *Sender);
void __fastcall p_button_1OnClick(TObject *Sender);
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
//Unit1.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TButton *buttons[5];
TButton *p_button_0 = new TButton(Form1);
TButton *p_button_1 = new TButton(Form1);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
buttons[0]=p_button_0;
buttons[1]=p_button_1;
buttons[0]->OnClick = p_button_0OnClick;
buttons[1]->OnClick = p_button_1OnClick;
Form1->InsertControl(buttons[0]);
Form1->InsertControl(buttons[1]);
buttons[1]->Left=200;
buttons[1]->Top=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1:

_button_0OnClick(TObject *Sender)
{
// do something...
}
void __fastcall TForm1:

_button_1OnClick(TObject *Sender)
{
// do something...
}
Rod