[Nyctos Kasignete]

Не поняла, в чем проблема... Ну добавляйте, как обычно, изменяя свойства RowCount и ColCount.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: Byte;
begin
  StringGrid1.RowCount := 10;
  StringGrid1.ColCount := 10;
  for i := 0 to 9 do
    for j := 0 to 9 do
      StringGrid1.Cells[j, i] := IntToStr(i + 1) + '.' + IntToStr(j + 1);
end;