Работа с компонентном Delphi 7 - TStringGrid

[МисУ]

Подскажите пожалуйста...Есть код:

-------------------------------------

function f(x,xn,xk,rn,rk:real):real;
begin
f:= sqr((((xk-xn)*(rk-rn))/(xk-xn))-rn);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
n,h,s,xn,xk,rn,rk: real;
begin
      for i:=1 to StringGrid1.RowCount-1 do begin
           xn := StrToIntDef(StringGrid1.Cells[2, i ], 0 ); 
           xk := StrToFloatDef(StringGrid1.Cells[3, i ], 0 );
           rn := StrToFloatDef(StringGrid1.Cells[4, i ], 0 );
           rk := StrToFloatDef(StringGrid1.Cells[5, i ], 0 );
      еnd;

-----------------------------------

В function я описал формулу. Переменные этой формулы берутся из столбцов Stringgrid.как посоветовали Вы мне. Проблема только в том, как связать эти переменные с f. Если бы переменная в формуле была одна, тут все понятно:

Допустим

function f(x,xn,xk,rn,rk:real):real;
begin
f:= sqr(x-1);
end;

procedure.........
........
.......
s:=s+f(xn);
end;


А как подставит в f несколько переменных, перерыл форум и учебники, не смог найти?



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.