Проверка вводимых данных в StringGrid

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
 '0'..'9':;
 #8:;
 else key:=#0;
 end;
end;

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer;
  const Value: string);
var
   DValue : Double;
   IValue : Integer;
begin
   // Если редактируется столбец №0 или №1, и введенное число не является целым
   // или если редактируется 2-ой столбец, и введеннный текст - не вещественное число
   if ((ACol < 2) and not TryStrToInt(Value, IValue))
      or
      ((ACol = 2) and not TryStrToFloat(Value, DValue)) then
   begin
      // (Sender as TStringGrid).Cells[ACol, ARow] := '';
 
      // То выдаешь сообщение об ошибке. Можно очистить ячейку при этом.
      ShowMessage('Неправильное значение');
   end;
end;

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
var c,r:word;
begin
c:=(sender as TStringGrid).Col;//текущий столбец
r:=(sender as TStringGrid).Row; //текущая строка грида
if key='.' then key:=DecimalSeparator;//На всякий случай и точку и запятую заменяем на десятичный разделитель, подстраиваемся под сист. настройки
if key=',' then key:=DecimalSeparator;
//Если вводимый символ не цифра, не десятичный разделитель, не минус, то исключаем
if not(key in ['0','1','2','3','4','5','6','7','8','9',DecimalSeparator,'-',#8])
   or((key=DecimalSeparator)and(Pos(DecimalSeparator,(sender as TStringGrid).Cells[c,r])>0))//Только один разделитель
   or((key='-')and(Pos('-',(sender as TStringGrid).Cells[c,r])>0))//минус только один
   or((c<>3)and(key=DecimalSeparator)) //В случае если столбец не третий, то десятичный разделитель тоже исключаем
    then
    begin
      beep;
      key:=#0;
    end;
end;

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
var i,j:integer;
begin
i:=StringGrid1.Col;
j:=StringGrid1.Row;
 if ((StringGrid1.Col=0) or (StringGrid1.Col=1)) then
  if not (key in ['0'..'9',#8]) then key:=#0;
 if (StringGrid1.Col=2) then
   if not (key in ['0'..'9',DecimalSeparator,#8]) then key:=#0;
    if ((key=DecimalSeparator) and (pos(DecimalSeparator,StringGrid1.Cells[i,j])>0)) then key:=#0;
      end;

if copy(s,1,1)='.' then s='';

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if copy(Edit1.Text,1,1)='.' then Edit1.Text:='';
  if ansipos('..',Edit1.Text)<>0 then
    Edit1.Text:=StringReplace(Edit1.Text,'..','.',[rfReplaceAll]);
end;

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
   with Sender as TStringGrid do
   begin
      if (Col = 0) or (Col = 1) then
         if not (key in ['0'..'9', #8]) then key := #0;
      if Col = 2 then
         if (key = DecimalSeparator) and (Length(Cells[Col, Row]) = 0) or
            not (key in ['0'..'9', DecimalSeparator, #8]) then key := #0;
 
      if (key=DecimalSeparator) and
         (Pos(DecimalSeparator,Cells[Col, Row]) > 0) then key:=#0;
   end;
end;