[nblF-nblF*]

помогите пожалуйста исправить защиту от ввода недопустимых символов в компонент StringGrid1, можно вводить только вещественные числа.
Помогите плиз, очень срочно надо!

Код:

procedure TForm1.FormClick(Sender: TObject);
const m=3; n=3;
type klop=array[1..m,1..n] of byte;
var x,y:klop;i,j,k:byte;
  begin
k:=strtoint(labelededit1.Text);
i:=1;
while i<=stringgrid1.ColCount do
  begin
j:=1;
while j<=stringgrid1.RowCount do
  begin
x[i,j]:=strtoint(stringgrid1.Cells[i-1,j-1]);
if x[i,j]<=0 then y[i,j]:=x[i,j]*k else
y[i,j]:=x[i,j];
label1.Caption:=label1.Caption+#9+floattostr(y[j,i]);
j:=j+1;
  end;
i:=i+1;
label1.Caption:=label1.Caption+#13;
  end;
  end;

procedure TForm1.LabeledEdit1KeyPress(Sender: TObject; var Key: Char);
   begin
case key of
'0'..'9':;
#8:;
'-':if length(labelededit1.Text)<>0 then key:=#0;
'.',',':begin if key='.'then key:=',' ;
if pos(',',labelededit1.Text)<>0 then key:=#0;
    end;
else key:=#0;
    end;
    end;


procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
  begin
case key of
'0'..'9':;
#8:;
'-':if length(StringGrid1.Cells)<>0 then key:=#0;
'.',',':begin if key='.'then key:=',' ;
if pos(',',StringGrid1.Cells)<>0 then key:=#0;
    end;
else key:=#0;
    end;
    end;
    end.