Inno Scriptで関数ポインタを使う方法

functionptr.iss

[Code]
type
  Tproc = procedure(const msg: String);
  Tfunc = function(const value: Integer): String;

procedure sample_proc(const msg: String);
begin
  Log(msg);
end;

function sample_func(const value: Integer): String;
begin
  Result := IntToStr(value);
end;

procedure sample;
var
  proc_ptr: Tproc;
  func_ptr: Tfunc;
begin
  proc_ptr := @sample_proc;
  func_ptr := @sample_func;

  proc_ptr(func_ptr(123));
end;