- und , in stringgrid ermöglichen

[herrentor]

hallo

ich hab eine letztes problem in meinem programm. und zwar untersage ich durch folgende prozedur, das in meinen stringgrid zeichen eingegeben werden können, allerdings möchte ich - (minus) und , (komma) eingeben können.

Code:

procedure TForm1.TabKeyPress(Sender: TObject; var Key: Char);  
begin
 if not (key in [#8, #9, #48 .. #57]) then key:=#0;
end;

procedure TForm1.TabKeyDown(Sender: TObject; var Key: Word;    
  Shift: TShiftState);
begin
 Stgrid_key:=true;
 stgrid_lastkey:=char(key);
end;