Tut mir leid, aber ich verstehe deine Frage nicht so richtig.
Der Code ist doch nur ein Beispiel.
Ich würde nur gern wissen, wie man z.B eine Funktion, deren Parameter unbekannt sind, an eine andere Funktion übergibt.
oh, merke grad, dass ich mich verschrieben habe:
Delphi-Quellcode:
type
TFunc= function(Parameter: Char): Byte;
function X(Proc: TFunc): Real;