type TClass = class
event a : integer;
end;

begin
end.