[reina]

hola! a ver si te ayudo..en el evento OnKeyPress del edit pones:

Código Delphi [-]
    If not (Key IN ['0'..'9',#8]) then
             Key := #0;  // no es ninguno de esos caracteres lo borra

espero te sirva..sino tambien podrias usar una mascara.

saludos y exitoss

LA PATRIA SERA LIBRE!