type TValueType = class(System.ValueType) end; begin end.