[lmikle]

Сообщение от artemavd

А вместо икса нисего писать не наддо?)

В месте икса - кординаты строки.

Сообщение от artemavd

А можете кто нибудь подсказать процедуру разбиения столбца на подстолбцы?)

StringGrid это "сетка" как в экселе (а не как таблица в ворде).
Ты должен увеличить кол-во столбцов на 1, а потом данные из всех столбцов, больше чем разбиваемый, перенести вправо на 1 ячейку.

примерно так:

Код:

procedure TForm1.SepCol(ACol : Integer);
var
  I,J : Integer;
begin
  StringGrid1.ColCount := StringGrid1.ColCount + 1;
  For I := StringGrid1.ColCount - 1 DownTo ACol + 1 Do
    For J := 0 To StringGrid1.RowCount - 1 Do
      StringGrid1.Cells[I+1,J] := StringGrid1.Cells[I,J];
end;