[vtdeleon]

Saludos

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

Código Delphi [-]
//solo letras
 if not (key in ['a'..'z','A'..'Z',#13,#8]) then 
   key:=#0;

Nt: Con esto no quiero decir que el codigo de TorreBlanca este mal (aunque no le analizado)