Habe leider zwei Fehler eingebaut. Bei Destroy fehlt der geerbte Destructor also bitte lieber so:
Delphi-Quellcode:
Destructor TJobRegister.Destroy;
var i : Integer;
p : pMethod;
begin
for i := 0 to FRegister.Count-1 do
begin
p := pMethod(FRegister.Objects[i]);
FreeMem(p);
end;
inherited Destroy;
end;
und im Beispiel gehört sich FormCreate gestrichen.