Проблема с заполнением массива из StringGrid

var
  Form1: TForm1;
  x,y:array[0..3] of real;
implementation
{$R *.lfm}
 
{ TForm1 }
            
procedure TForm1.Button1Click(Sender: TObject);
     var w,ln,li,R,xx,RR:real;
     var i,k:integer;
    begin
       xx:=StrToFloat(Edit1.Text);
     ln:=0;
     for i:=0 to StringGrid1.RowCount-1 do begin
      x[i]:=StrToFloat(StringGrid1.Cells[0, i]);
      y[i]:=StrToFloat(StringGrid1.Cells[1, i]);
     end;
     for i:=0 to 3 do begin
       w:=1;
       w:=w*(xx-x[i]);           //вычисление w по (4.3)
       li:=1;
       for k:=0 to 3 do begin
         if k<>i then li:=li*(xx-x[k])/(x[i]-x[k]);   //вычисления li по (4.2)
       end;
       Label10.Caption:=(FloatToStr(li));
       Label11.Caption:=(FloatToStr(li));
       Label12.Caption:=(FloatToStr(li));
     end;
     ln:=ln+y[i]*li; //вычисления по (4.1)
     Label13.Caption:=(FloatToStr(ln));
     k:=1;
     for i:=1 to 4 do k:=k*i;  //вычисление значения 4!
     R:=abs(w/k);                //вычисления по (4.3)
     Label14.Caption:=(FloatToStr(R));
     RR:=R/abs(ln);
     Label15.Caption:=(FloatToStr(RR));
end;