procedure Test(a: integer);
begin
  
end;
begin
  var p{@var p: procedure(a: integer);@} := Test+Test;
  
end.