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

begin
end.