Смо с отказами!!! Delphi.

[Abay19941308]

Помогите пожалуйста!!! В делфи новичок поэтому никак не могу правильно составить формулу. Мне нужно чтобы значение mas[2,i] правильно вычисляла переходы (R).
R 1,0= лямбда/мю
R 2,1= лямбда/2*мю
R 3,2= лямбда/3*мю и так умножать на Мю до тех пор пока не достигнет n.
Все это выводитя в stringgrid. И как сделать так чтобы при n=1
в 1 столбце stringgrid выводило R 1,0
при n=2 R 2,1
при n=3 R 3,2 и т.д.

DElphi

procedure TForm1.Button1Click(Sender: TObject);
var
M,tob,Lyambda,Mu,nakop,S,R,Summ:real;  j,i,n,k:integer;

begin

M:=Strtofloat(Edit1.Text);

tob:=strtofloat(Edit2.Text);

n:=strtoint(Edit3.Text);

nakop:=strtofloat(Edit4.Text);

Lyambda:=M/24;
Label5.caption:=FloatTostr(Lyambda);

Mu:=1/tob;
Label6.caption:=FloatTostr(Mu);

S:=n+1;
label8.caption:=FloatTostr(S);

if n>4 then
StringGrid2.RowCount := StringGrid2.rowCount + 1;
StringGrid2.Cells[1,0]:='ïåðåõîä';
StringGrid2.Cells[2,0]:='çíà÷åíèå';
For i:=1 to n do begin
For j:=1 to n do begin
while mas[2,j]=n do
mas[2,i]:=lyambda/(mu*i);
StringGrid2.Cells[2,j]:=floatToStr(mas[2,j]);
end;end;

Вместо нулей должны выводится значения из формулы.