type TClass = class auto property X: integer := 1; auto property Y: (integer, integer) := (1, 1); end; begin end.