type TClass = class
a : integer;
property PropA : integer read a write a;
end;

begin

end.