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

end.