Вызов скриптовой функции

Brom

Привет всем и каждому
Не могу понять в чём проблема. В при попытке вызвать скриптовую функцию (функция взята для примера)


function OK(i: real):real;
begin
ShowMessage(i);
result:=i+3;
showmessage(result);
end;
begin
end.

при помощи следующего кода

procedure TForm1.Button2Click(Sender: TObject);
begin
m:=strtofloat(edit1.Text);
m:=fsscript1.CallFunction('ok',m);
edit1.text:=floattostr(m);
end;

функцию вызывается и выполняется но не учитывается параметр переданный функцию. Подскажите в чем ошибка

-=Den=-

Параметры должны передаваться как массив вариантов, создайте VariantArray с нужным кол-вом элементов(кол-во элементов = кол-во параметров ) элементов и передавайте параметры через него.