aceptar solo digitos en Edit
 

Hola a todos!!

Alguien me podría decir como validar un Edit para que no me permita poner otro caracter que no sean digitos, esto es lo que yo tenog pero no me funciona:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key < 48 and Key > 57) then
begin
instrucciones
.
.
.
end;
end;

end.

//el rango de 48 a 57 es el codigo correspondiente de 0 a 9

Porqué no pruebas utilizar algún componente creado con este propósito. Por ejemplo el TCurrencyEdit de las RxLibs o el IntEdit que puedes bajar de mi página.
Estos componentes no solo evitarán que ingresen caracteres no válidos por el teclado, sinó además evitaran que el usuario pegue caracteres inválidos!

Saludos!

//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;