Ограничение ввода в stringgrid

[Человек Панда]

Здравствуйте.Работаю со stringgrid,хочу предусмотреть ограничение ввода,но никак не получается.Вот код

if Y=True then
    begin
      if len >9 then         //проверка длины ввода
          begin
          MessageDlgpos('Число не должно содержать более 9 символов',mtInformation,[mbOK],0,700,300);
          s:=X.Cells[x.Col,x.Row];
          Delete(s,10,100); //удаляем лишние числа//100 может и не серьезно,но так сделал
          X.cells[X.col, X.row]:=s; //выводим на экран
          y:=False; //ввод неверный
          end
      else  y:=True;
    end;

Если вести очень большую строку(секунд на 5 кнопку зажать)то вылетает ошибка floating poin overflow.Что делать?

И еще один вопросик:как убрать синюю подсветку при работе в stringgrid?Хочу вообще от подсветки избавиться

[Stilet]

предусмотреть ограничение ввода

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
 with TStringGrid(Sender) do
  if IsCharAlphaNumeric(key) and (Length(Cells[Col,Row])>9) then key:=#0;
end;

Идея понятна?

как убрать синюю подсветку

Т.е. выделение другим цветом текущей строки? Добавь в Options goEditing и goAlwaysShowEditor