namespace nspartial;

type
  T = partial class
    public procedure Test1;
    begin
      Inc(i);
    end;
  end;

end.