Таблица

var
  gCnt : Integer = 0;
 
procedure TForm1.Button1Click(Sender : TOBject);
var
  Row, Col : Integer;
begin
  Row := gCnt div StringGrid1.ColCount;
  Col := gCnt mod StringGrid1.ColCount;
  //Если требуется, добавляем новую строку в таблицу.
  if Row = StringGrid.RowCount then
    StringGrid.RowCount := StringGrid.RowCount + 1;
  Inc(gCnt);
  
  StringGrid1.Cells[Col, Row] := Edit1.Text;
end;

var
  gCnt : Integer = 0;
 
procedure TForm1.Button1Click(Sender : TOBject);
begin
  //Перепрыгиваем через фиксированные строки.
  gCnt := StringGrid1.FixedRows * StringGrid1.ColCount;
end;
 
procedure TForm1.Button1Click(Sender : TOBject);
var
  Row, Col : Integer;
begin
  Row := gCnt div StringGrid1.ColCount;
  Col := gCnt mod StringGrid1.ColCount;
  //Если требуется, добавляем новую строку в таблицу.
  if Row = StringGrid.RowCount then
    StringGrid.RowCount := StringGrid.RowCount + 1;
  //Перепрыгиваем через фиксированные столбцы.
  if Col < StringGrid1.FixedCols then
    Inc(Col, StringGrid1.FixedCols);
  Inc(gCnt);
  
  StringGrid1.Cells[Col, Row] := Edit1.Text;
end;

var
  gRow : Integer = 0;
 
procedure TForm1.Button1Click(Sender : TOBject);
begin
  //Устанавливаем индекс строки, равный индексу последней фиксированной строки.
  gRow := StringGrid1.FixedRows - 1;
end;
 
procedure TForm1.Button1Click(Sender : TOBject);
var
  Col : Integer;
begin
  //Индекс следующей строки.
  Inc(gRow);
  //Если требуется, добавляем новую строку в таблицу.
  if gRow = StringGrid.RowCount then
    StringGrid.RowCount := StringGrid.RowCount + 1;
  //Индекс первого нефиксированного столбца.
  Col := StringGrid.FixedCols;
  //Записываем значения в ячейки.
  StringGrid1.Cells[Col, gRow] := Edit1.Text;
  StringGrid1.Cells[Col + 1, gRow] := Edit2.Text;
  StringGrid1.Cells[Col + 2, gRow] := Edit3.Text;
  StringGrid1.Cells[Col + 3, gRow] := Edit4.Text;
end;