Работа с __closure штатными средствами

union{
    struct{
          void* Object;
          void* Proc;
    }
    TNotifyEvent closureptr;
 }

class TScalarParameter:public TParameter{
private:
      TScalarGetter FGet;
      TScalarSetter FSet;
protected:
       virtual TParamType __fastcall GetType(){return ptScalar;};
       scalar __fastcall GetValue(){return FGet();};
       void __fastcall SetValue(scalar Value){ FSet(Value);};
public:
      __fastcall TScalarParameter(AnsiString aName,TScalarSetter Setter, TScalarGetter Getter):TParameter(aName){
             FSet=Setter;
             FGet=Getter;
      };
      __property TScalarGetter Get={read=FGet};
      __property TScalarSetter Set={read=FSet};
      __property scalar Value={read=GetValue,write=SetValue};
};

class TLinearDimension{
      scalar FDelta;
      scalar FAxe;
      TScalarParameter* Position1,*Position2;
      void __fastcall TLinearDimension(TAxe Axe,TVectorParameter* aPosition1,TVectorParameter* aPosition2){
           Position1=aPosition1->Axes[Axe];
           Position2=aPosition2->Axes[Axe];
      }
      void __fastcall Verify(){
           if (abs(Position1->Value-Position2->Value)!=FDelta)
               Position2->Value=Position1->Value+FDelta;
      };
      void __fastcall SetDelta(scalar Value){
           if(Value<0) Value=0;
           FDelta=Value;
           Verify();
      }
      bool __fastcall PositionInterceipt(TVector &Position ){
          // Position.D.[Axe]=Origin->Position.D[Axe]+Delta;
          return true;
      }
 
      bool __fastcall LengthInterceipt(scalar &Position){Position=FDelta; return true;}
};