Geh doch im Onchange alle Buchstaben durch und überprüfe ob es Zahlen sind:
Delphi-Quellcode:
str:='';
for i:=0 to length(e1.text)-1 do
if (e1.text[i] in ['0'..'9']) then str:=str+e1.text[i];
e1.text:=str;
Alternativ kannst du auch die Buchstaben per
delete rausnehmen.