function->tfunction

[vsilverlord]

hallo, ich möchte eine variable function nutzen.
Diese soll als parameter für eine procedure dienen, sodass ich funktionen einsetzen kann .
so soll es funktionen (tut es aber nicht), es ist aber nicht der orginal quelltext, sondern nur das wesentliche:

Delphi-Quellcode:

uses (...)math;
(...)
type
 tfunction= function(a:extended):extended;
(...)
var
zahlen:array of extended;
(...)
procedure trape(parameterfunction: tfunction);
var
i:integer;
begin
  for i:=0 to length(zahlen)-1 do
  begin
   zahlen[i]:=parameterfunction(zahlen[i]);
  end;
end;
(...)
procedure sintrape;
begin
trape(sin)
end;

ach ja, was ich noch sagen wollte: bitte sagt mir nicht, dass das blöde ist, und dass das viel zu umständlich ist; ich hab das total durchgedacht, so ist der beste Weg!
//edit: integer in extended verändert