Hola
Me parece que anda por el envento onkeypress del edit.
Aunque este tema se ha visto muchas veces y es cuestion de darle una buscadita.
Yo me encontre esto:
Código Delphi
[-]if StrScan ('1234567890', Key)=nil then
Por ahi andan los tiros.
Saludos