/**************************************************************/
const int MAX_IMAGE_COUNT = 5;
class TForm1 : public TForm
{
__published:        // IDE-managed Components
    void __fastcall Image1Click(TObject *Sender);
private:        // User declarations
    TImage *m_Img[MAX_IMAGE_COUNT];
public:                // User declarations
    __fastcall TForm1(TComponent* Owner);
};    /**************************************************************/
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    for (int i = 0; i < MAX_IMAGE_COUNT; i  )
    {
        m_Img[i] = new TImage(this);
        m_Img[i]->Parent = this;
        m_Img[i]->Tag = i;
        m_Img[i]->OnClick = Image1Click;
        m_Img[i]->Left = i * m_Img[i]->Width;
    }
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Image1Click(TObject *Sender)
{
    // Tag 即是所點選的 index
    Caption = static_cast(Sender)->Tag;
}
/**************************************************************/