请关注一下！关于指针的！

Question

在下面代码的基础上，声明一个函数常量，并将函数常量的指针指向函数Calc。
备注：
请在下面结构中添加具体的代码。
program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
function Calc(X, Y: Integer): Integer;
begin
  Calc:=X+Y;
end;begin
end.
谁能帮我填一下。我不太懂！
  
end.

Answer 1

var f:function(x,y: integer): integer;
@f := @Calc;

Answer 2

program Project2;{$APPTYPE CONSOLE}uses
  SysUtils;
function Calc(X, Y: Integer): Integer;
begin
  Calc:=X+Y;
end;var
  f:function (X, Y: Integer): Integer;
  c:char;
begin
  f := @Calc;  writeln(IntToStr(f(5, 3)));
  read(c);
  { TODO -oUser -cConsole Main : Insert code here }
end.

Answer 3

program Project1;{$APPTYPE CONSOLE}uses
  SysUtils;
function Calc(X, Y: Integer): Integer;
begin
  Calc:=X+Y;
end;var
  f:function(x,y: integer): integer;
  test:integer;begin
  { TODO -oUser -cConsole Main : Insert code here }
  @f := @Calc;
  test := f(2,3);
  writeln(test);
  readln;end.