Массив Image

Image[0]=Image1;
Image[1]=Image2;
.........................
TPngImage *png = new TPngImage();
png->LoadFromResourceName(0,"B_2");
Image[0]->Picture->Assign(png);
png->LoadFromResourceName(0,"B_3");
Image[1]->Picture->Assign(png);
.......................
for (i=0;i<25;i++)
    {
      if (Image[i]->OnClick)
       {
  Image[i]->Hide();
     }

//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <ExtCtrls.hpp>
#include <Graphics.hpp>
//---------------------------------------------------------------------------
namespace MyImage
{
    class TImage : public Extctrls::TImage
    {
    public:
        DYNAMIC void __fastcall Click(void)
        {
            this->Visible = false;
        }
    };
};
//#define TImage MyImage::TImage
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        void __fastcall FormClick(TObject *Sender);
__published:
        MyImage::TImage *Image1;
        MyImage::TImage *Image2;
        MyImage::TImage *Image3;
        TImage *Image4;
        TImage *Image5;
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
//#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
    TImage *img[5];
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClick(TObject *Sender)
{
     if(!img[0]) for(int i=0;i<5;i++) img[i]=(TImage*)FindComponent("Image"+IntToStr(i+1));
     TPoint aP = this->ScreenToClient(Mouse->CursorPos);
     tagRECT re;
     for(int i=0;i<5;i++) {
       re = img[i]->BoundsRect;
       if(PtInRect(&re, aP)) img[i]->Show() ;
     }
}
//---------------------------------------------------------------------------

namespace MyImage
{
    class TImage : public Extctrls::TImage
    {
    public:
        DYNAMIC void __fastcall Click(void)
        {
            if(!Tag)
                this->Visible = false;
        }
    };
};
#define TImage MyImage::TImage // не надо это все время комментировать. оно СОВСЕМ не для красоты тут находится !!!

    img[3]->Tag = 1;
    img[4]->Tag = 1;