[[Caral]]

Hola
Este es parte de un ejemplo que puso Bicho en algun hilo.
En El evento OnKeyPress del edit o dbedit pon:

Código Delphi [-]
if key in ['0'..'9'] then
// Aqui pones lo que neceitas

Con esto si hay algun numero lo indica
Hay que buscar para encontrar
Saludos