[AND_REY]

Умножение:

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var
 i, j: Integer;
 a, b, s: Real;
begin
 s:= 0.1; //шаг
 StringGrid1.RowCount:= 10;    //размер
 StringGrid1.ColCount:= 10;
 a:= 0;
 For i:= 0 To StringGrid1.RowCount - 1 Do
  begin
   a:= a + s;
   b:= 0;
   For j:= 0 To StringGrid1.ColCount - 1 Do
    begin
     b:= b + s;
     StringGrid1.Cells[i, j]:= FloatToStr(a*b); // при сложении +
    end;
  end;
end;