Автор: Зайцев О.В.

По-видимому, надо добавить строк в конец, изменив Grid.RowCount, а потом раздвинуть строки циклом снизу вверх:

Grid.Rows.Strings[i] := Grid.Rows.Strings[i - 1];