type TClass = class
a : integer;
end;

begin
with TClass.Create do
begin
a := 3;
end;

end.