[luffi]

Доброй поры времени. Как этот код переделать для TStringGrid

Код:

 if (Key='.')and(Pos('.',TEdit(Sender).Text)<>0) then
       Key:=#0;

он у меня для TEdit есть и пашет норм. пробоваал сам сделать но незнаю что дописать. Error-ры выкидывает. Всё работает в OnKeyPress

Код:

if (Key='.')and(Pos('.',TStringGrid(Sender).Cells)<>0) then
       Key:=#0;