aceptar solo digitos en Edit

[santana]

//evento OnKeyPress del Tedit
procedure Form1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

{Si no es un numero
o la tecla de borrado
para permitir al usuario
corregir si se equivoca}

if not (Key in ['0'..'9', #8])then
Key:=#0
//no admitir el caracter
//dandole a Key valor nulo



end;