Subject: Zeiger funktion
From: [email-masked]
To: [email-masked]
Date: Tue, 09 Sep 2025 22:29:34 +0200

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;