[NumLock]

Код:

StringGrid1.Cells[b,c]:=IntToStr(i) + r + IntToStr(a);