Функция из переменной

[shonty]

Подскажите пожалуйста, как вызвать функцию из переменной?

Задача такая:
Имеется пять функций (одностроковых например: f4:=500*1.2*1000/(Rvar/100*x+R880)) и процедура (многострочная), строящая график на канве.

Можно конечно и пять процедур накопипастить, под каждую функцию... Но..

Не могу понять, как в процедуру ввести переменную (например F) и согласно условию подставлять в неё какую-либо из фцнкций (типа F:=f1, F:=f2, и т.п.).

[p51x]

type
    TFunctionParam = function(const value : integer) : integer;

...

 function One(const value : integer) : integer;
 begin
    result := 1;
 end;
 
 function Two(const value : integer) : integer;
 begin
    result := 2;
 end;

...

f : TFunctionParam;

[shonty]

Да, спасибо, работает.

PS
Мне, как простому советскому радиолюбителю, для подбора резисторов в регуляторе тока (а зависимости сильно нелинейны) нужна программа для отображения графиков.
Хотел выкрутится так:
var a, b, c, d, e;
F:=a*(fnc1)+b*(fnc2)+c*(fnc3)+d*(fn c4)+e*(fnc5)
и подстановкой переменных a,b,c,d,e в "0" и "1" выбирать нужный участок выражения
Теперь сделаю как положено

[digitalis]

А зачем такие сложности? Я бы по своей простоте сделал бы одну функцию со switch'ем унутре. Возможно, какие-то общие участки кода использовал бы.