type TIFPSSubItem = class(TObject)
property aType: Cardinal;
The type this variable will be after this subfield