На какой строке останавливается в момент ошибки...
Поставь BreakPoint на этой строчке
Код:
StringGrid1.Cells[0,0]:='Действие';
Чтобы поставить BreakPoint, нужно просто щелкнуть левее строчки, появится красная большая точка...
Запускай прогу через Delphi, нажимай на StringGrig, прога должна остановится на этой точке...
Далее нажимай F7 пока не попадешь на свою ошибку, тогда можно конкретнее узнать.