[lmikle]

попробуй вот так:

Код:

type
  TFunc = function (X: Real) : Read;

function F1(X : Real) : Real;
begin
...
end;

function F2(X : Real) : Real;
begin
...
end;

function GetFunc(Num : Integer) : TFunc;
begin
  Case Num Of
    1 : Result := @F1;
    2 : Result := @F2;
  End;
end;