https://www.delphipraxis.net/16528
9-prozedur-per-pointer-
aufrufen.html

function AddFunc(aLeft, aRight: 
Integer): Integer;
begin
  Result := aLeft + aRight;
end;

type
  TBinaryIntFunc = function(aArg1, 
aArg2: Integer): Integer;

var
  func: TBinaryIntFunc;
  res: Integer;
begin
  func := @AddFunc;
  res := func(3, 5);
end;