type
  T = class
    static procedure P(); reintroduce := exit;
  end;

begin
end.