[nikolai1324]

Нужно реализовать, например, след. консткукцию:

Код:

type TFunc=function(t:real):real;

function derive(x:TFunc):TFunc;

 const h=0.001;

 function xd(t:real):real;
  begin
   result:=result;
   result:=(x(t+h)-x(t))/h;
  end;

begin
 result:=xd; {Ошибка: Local procedure/function 'xd' assigned to procedure variable}
end;

Важен результат именно типа TFunc.
Важна реализация именно в Delphi 7.
Помогите пожалуйста корректно задать функцию.