[Страдалецъ]

Почти готовый пример вам уже выше дали. Вот примерно так:

Код:

for i := 0 to StringGrid1.RowCount - 1
do StringGrid1.Cells[0, i] := IntToStr(i);

Если 0-строка используется для заголовков столбцов, то начните цикл с 1