[Alegun]

Я тоже так начал копать, но дойдя до

Код:

...
TbgRow: array[0..12] of TbgCell =
   ((toEdit: false; ValueType: vtFuel),(),(),(),(),(),(),(),(),(),(),(),());
...

забил, больно много букофф, не рационально слегка, циклом проще