[Alexo]

Быстренько набросал

Код:

procedure TForm1.strngrd1KeyPress(Sender: TObject; var Key: Char);
begin
  try
    if (Key = #8) or (StrToInt(Key) >= 0) then
      strngrd1.Cells[strngrd1.Col, strngrd1.Row] := strngrd1.Cells[strngrd1.Col, strngrd1.Row] + Key
    else
      Key := #0;
  except
    on EConvertError do ShowMessage(Key + ' Не являеться чилом');
  end;
end;

Только тут проблема с #8 (удаление).