Не считает произведение строк

procedure TForm1.Button1Click(Sender: TObject);
 
var
n,m:integer;
begin
if (edit1.Text<>'') and (edit2.Text<>'') then
 begin
n:=strtoint(edit1.Text);
m:=strtoint(edit2.Text);
 stringgrid2.ColCount:=m;
 stringgrid2.RowCount:=n;
 stringgrid3.RowCount:=n;
end
else Showmessage('Введите порядок матрицы');
end;
 
 
 
procedure TForm1.Button2Click(Sender: TObject);
 
var i,j:integer;
begin
 for i:=0 to stringgrid2.RowCount-1 do
  for j:=0 to stringgrid2.ColCount-1 do
    stringgrid2.Cells[j,i]:=inttostr(random(10)-5);  // заполнение случайными числами
end;
 
 
 
 
procedure TForm1.Button3Click(Sender: TObject);
  var m,n,i,j:integer;
  bn:real;
begin
  m := StrToInt(Edit1.Text);
  n := StrToInt(Edit2.Text);
  StringGrid3.RowCount := m + 1;
  for i := 1 to m do
  begin
    bn := 1;
    for j := 1 to n do
      bn := bn * StrToFloat(StringGrid2.Cells[j, i]);
    StringGrid3.Cells[1, i] := FloatToStr(bn);
    StringGrid3.Cells[0, i] := 'b' + IntToStr(i);
  end;
end;
 
 
 
end.