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