Как не допустить в ячейку TDrawGrid повторного ввода десятичного разделителя?

procedure TDrawGrid.KeyPress(var Key: char);
begin
    inherited KeyPress(Key);  
    Case Key of
        '0'..'9' : exit;   // Действие по-умолчанию (ввод цифры от 0 до 9)
        #8      : exit;   // Действие по-умолчанию (BACKSPACE)
        '.',','  : begin   // Точку или запятую заменяем десятичным разделителем, проверив что он в числе единственный
                      Key:= DecimalSeparator;
                   end;
        else   Key:=#0;
    end;
end;

for i:=0 to m-1 do
for j:=0 to n-1 do
if not TryStrToFloat(DrawGrid1.Cells[j,i],a[i,j]) then
 begin
  ShowMessage('В ячейке ['+inttostr(i)+','+inttostr(j)+'] неверно введено значение, поправьте');
   exit
 end;

for i:=0 to m-1 do
for j:=0 to n-1 do
if((i=0)and not TryStrToInt(DrawGrid1.Cells[j,i],a[i,j]) )
or  not TryStrToFloat(DrawGrid1.Cells[j,i],a[i,j]) then
 begin
  ShowMessage('В ячейке ['+inttostr(i)+','+inttostr(j)+'] неверно введено значение, поправьте');
   exit
 end;

procedure TDrawGrid.KeyPress(var Key: char);
var e : TStringCellEditor;
begin
  inherited KeyPress(Key);
  case Key of
    '0' .. '9' : ; // do nothing
    else
      if Key = DecimalSeparator then
      begin
        e := TStringCellEditor(Editor); // получаешь текущий редактор (для строк - это всегда TStringCellEditor
        // и проверяешь, есть ли уже внутри редактируемой строки DecimalSeparator. Если есть - второй не разрешать.
        if Pos(DecimalSeparator, e.Caption) > 0 then Key := #0;
      end
      else Key := #0; // вот сюда аналогичным образом добавишь проверку на "минус"
  end;
end;

procedure TDrawGrid.KeyPress(var Key: char);
var e: TStringCellEditor;
begin
    inherited KeyPress(Key);
    case Key of
    '0' .. '9', #8 : ; 
    '.',',':
        begin
            if Self.Col>1 then  // Номер колонки > 1 - значения с плавающей точкой
            begin
                Key:= DecimalSeparator{%H-};
                e:= TStringCellEditor(Editor); // Получаем текущий редактор (для строк - это всегда TStringCellEditor)
                // Проверяем, есть ли уже внутри редактируемой строки DecimalSeparator. Если есть - второй не разрешать.
                if Pos(DecimalSeparator{%H-}, e.Caption) > 0 then Key := #0;
            end
            else   Key:= #0;
        end;
    '-':
        begin
            if Self.Col>1 then  // Номер колонки > 1 - значения с плавающей точкой
            begin
                e:= TStringCellEditor(Editor); // Получаем текущий редактор (для строк - это всегда TStringCellEditor)
                // Проверяем, есть ли уже внутри редактируемой строки '-'. Если есть - второй не разрешать.                
                if Pos(Key, e.Caption) > 0 then Key := #0;
            end
            else   Key:= #0;
        end;
    else   Key:= #0;    
 
    end;                
end;

var bVCX: boolean;              // Eckb TRUE == Использовались горячие клавиши копирования-вставки.
procedure TDrawGrid.KeyDown(var Key: Word; Shift: TShiftState);
begin
    inherited KeyDown(Key, Shift);
    if  ((Key = ord('X')) and (ssCtrl in Shift)) then bVCX:= true
    else if ((Key = ord('C')) and (ssCtrl in Shift)) then bVCX:= true
    else if ((Key = ord('V')) and (ssCtrl in Shift)) then bVCX:= true;
end;
procedure TDrawGrid.KeyUp(var Key: Word; Shift: TShiftState);
begin
    inherited KeyUp(Key, Shift);
    bVCX:= false;
end;

e.SelStart