как заблокировать ввод букв в StringGrid?

[LeoN]

Мне надо рассчитать по формуле значение оной переменной.Как проще проверить какие переменные пользователь ввел в StringGrid.И как заблокировать ввода букв в StringGrid?

[SERG1980]

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in['0'..'9',decimalseparator,#8]) then
begin
key:=#0;
beep;
end;
end;