Und um sich den unnötigen Typecast zu sparen so schreiben (macht ihr ja beim zurücksetzen auch so...):
Delphi-Quellcode:
procedure TfrmCreate.eKMKeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', ',', '.', #8, #127]) then
Key := #0;
end;