Динамический глобальный объект.

void __fastcall TForm1::FormClick(TObject *Sender)
{
       POINT p;
       TClickBase *click = new TClickBase;
       ID++;
 
       if (ActiveClick == true)
       {
           GetCursorPos(&p);
           click->SetPoint(p);
       }
}

class TForm1
{
...
TClickBase *click;
...
};

class TClickBase
{
        public :
       TClickBase()
       {
                //MessageBox(0, "Конструктор", "Конструктор", MB_OK);
                interval  = new unsigned short int(1000);
                point = new POINT;
       };
 
       ~TClickBase()
       {
                //MessageBox(0, "Деструктор", "Деструктор", MB_OK);
                delete interval;
                delete point;
       };
 
        POINT GetPoint(void)
        {
                return *point;
        };
 
        unsigned short GetInterval(void)
        {
                return *interval;
        };
 
        void SetPoint(POINT p)
        {
                (*point).x = p.x;
                (*point).y = p.y;
        };
 
        void SetInterval(unsigned short i)
        {
                *interval=i;
        };
 
        private :
        unsigned short *interval;
        POINT          *point;
};