[Alexo]

хм не должно быть там одноцифровки по крайней мере у меня работает на мнногоцифровку)

Для ограничения проверяй длинну strngrd1.Cells[strngrd1.Col, strngrd1.Row]
если она больше двух то key := #0;