Hallo,
wie bereits erwaehnt wurde, ist in der Variable "Key" der
ASCII-Code des Zeichens enthalten.
Folgende solltest du erlauben: 48 ('0') bis 57 ('9'), 9 (Backspace) und evtl. 13 (Return).
Also fragst du ab:
Delphi-Quellcode:
if Key not in [9, 13, 48..57] then
Key := 0;
Sollte so eigentlich funktionieren.
Greetz
alcaeus