procedure Test;
type TClass = class
end;
begin
end;

begin
end.