no se que caracter represente el #8 pero con esta modificacion propuesta debe funcionar
Código Delphi
[-]
procedure TForm1.Edit1KeyPress(Sender: TObject;
var Key: Char);
begin
if ((Key < '0') or (Key > '9')) and (Key <> #8) and (Key <> ',') then
Key := #0;
end;