[irixita]

A me habia olvidado. si es para numeros la linea seria:

Código Delphi [-]
if not(key in ['0'..'9',#8])then key := #0;

Espero que te sirva a vos y al que lo necesite!!...