Formatação da EditText para aceitar somente numeros

No evento keypress do edit faça o seguinte :

if (not (Key in [´0´..´9´])) and (key<>#8) then Key := 0;