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

begin
end.