[xbisont]

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