[[BlueSteel]]

intenta con este código en el evento OnKeyPress del TEdit

Código Delphi [-]
     If Key in ['0'..'9']=false then
     If Key<>#8 then key:=#0;

espero que te sirva... a mi me funciona de maravilla