[mik]

Код:

DBGrid.DataSource.DataSet.Next;

Код:

Inc(Y);
StringGrid.Cells[X, Y] := ...;