TÉMA:

KettoPointer=array[0..1]of Pointer;

Self.ProcList.Add(AProc); //és így nem a változó címét (a stack-ban) hanem annak értékét adja a listához
 
for i:=0 to (Self.ProcList.Count - 1) do TProcVar(Self.ProcList.Items[i])();

for i:=0 to (Self.ProcList.Count - 1) do 
  TProcVar(Self.ProcList.Items[i]^)();

for i:=0 to (Self.ProcList.Count - 1) do
  Self.ProcList.Items[i]();

type
  TProc=procedure;//a procedurális tipus meghatározása
 
var
  ProcVar:TProc; //ez veszi fel a procedura címét
  List:array[0..7]of TProc; //a procedurák címeinek listája
 
procedure TheProc; //ennek a címét kell a listába tenni
begin
  WriteLn('Hello Cruel World!'); //ezt fogja kiírni ha minden jól megy
end;
 
begin
  //List[0]:=@TheProc; // :)
  ProcVar:=@TheProc; //a procedure címének változóba helyezése
  List[0]:=ProcVar; //a változó értékének listába helyezése
  List[0]; //a procedure meghívása így történik
end.

{$mode objfpc}
 
type TProcVar = procedure() of object;
 
type Class1 = class
 
  ...
  ProcList: TList;
 
  constructor Create(AProc: TProcVar);
  procedure ExecuteAll;
 
  ...
end;
 
constructor Class1.Create(AProc: TProcVar);
begin
  Self.ProcList := TList.Create;
 
  { A gondok valószínűleg itt kezdődnek, mivel a listába
pointert kéne adni, de az AProc már pointer tulajdonképpen,
mivel a konstruktort így hívom meg:
 
Class1.Create(@SomeProc);
 }
 
  Self.ProcList.Add(@AProc);   { Ezért @AProc = @@SomeProc ?! }
end;
 
procedure Class1.ExecuteAll;
var
  i: Integer;
begin
  { Ez SIGSEGV-et generál: }
 
  for i:=0 to (Self.ProcList.Count - 1) do
    TProcVar(Self.ProcList.Items[i]^)();
end;