[Delphi] Typ proceduralny, funkcja z biblioteki

0

Witam!

Mam funkcję:

function TForm1.f1(x: Extended): Extended;
begin
Result:=sqr(x)+ 4;
end;

i taką funkcję importowaną z dllki

function CalProsZNadm(POd,PDo:real; n:integer; f:funkcja):real;
var i:integer;
     xi,h:real;
begin
h:=PDo-POd/n;
for i:=1 to n do
    begin
       xi:= POd + i*h;
       result:= result + f(xi)*h;
    end;
end;

zadeklarowałem typ

type
Funkcja=function(X:extended):extended;

Pytanie brzmi jak przekazać do tej funkcji z biblioteki funkcję f1? :>

takie coś nie działa;

wynik:=CalProsZNadm(a,b,c,f1);

z góry dziękuje za odpowiedź

1 użytkowników online, w tym zalogowanych: 0, gości: 1