Удаление строк при рекурсии (Delphi)

[Alco]

Добрый день. Пишу программу, суть такова: недетерминированный автомат с магазинной памятью, есть функции переходов в зависимости от символа входной ленты и верхнего символа магазина (+используется е-такт).
Задается входная строка, нужно проверить, допускается ли она автоматом (при преобразовании надо чтобы опустошилась одновременно входная строка и магазин).
Написал рекурсивную функцию для проверки, вроде бы все работает, но! надо записать в StringGrid последовательность преобразований (если она существует), которая приводит к нужному результату.
В таблице получается много лишнего. Как сделать, чтобы при возвращении на предыдущий уровень рекурсии, если перебраны все варианты, запись в таблице удалялась?


Примерно так работа должна выглядеть


(S,1001)
l1--- (SBSASA, 001)
l2--- (SASBSBBSASA,01)
l3--- (SASBSBASBSBBSASA,1)
l4--- (SBSASAASBSBASBSBBSASA,e) <-> ошибка, удалили строку, вернулись вверх
--- ...
--- ...
--- ...
--- е-такт //нужно вернуться на l3 и чтобы удалилась запись (SASBSBASBSBBSASA,1)
l3--- (SBSASBASBSBBSASA,1)
l4--- ...
....
.... //вернуться на l2 и чтобы удалилась запись неверного хода (SASBSBBSASA,01)
...
l1--- (SASASB,001)
...
l2--- (ASASB,001)
...
l3--- (SASB,01)
...
l4--- (ASB,01)
...
l5--- (SB,1)
l6--- (B,1)
l7--- (e,e) //конец

В итоге в таблице должно быть следующее:
S | 1001
SASASB | 001
ASASB | 001
SASB | 01
ASB | 01
SB | 1
B | 1
e | e

[Mikhail Bakurov]

поставь проще условие, чтобы не создавалась строка, или ячейку прировняй к '', или сделай RowCount-1

[Alco]

Сообщение от Mikhail Bakurov

поставь проще условие, чтобы не создавалась строка, или ячейку прировняй к '', или сделай RowCount-1

Да я сделал уже, трехчасовой дебаггинг меня спас.