//!Параметр метода не может иметь имя Self
type
T = class
public procedure p(self: integer) := exit;
end;
begin
end.
