procedure Test;
type IInt = interface
end;
begin
end;

begin
end.