请教关于自己对对象进行内存管理(对象内存池)

我打算自己写一个对象内存池,但是现在需要的问题就是无法正确的执行构造函数Create及析构Destory
    vObject := Pointer(Integer(vHeader) + SizeOf(TPoolLinkHeader));
    FTypeData.ClassType.InitInstance(vObject);
    AObject := vObject;
    AObject.Create; //即时这样也无法使对象运行他的构造函数
          vObject.BeforeDestruction;
          vObject.CleanupInstance;