[ecfisa]

Hola gonza.

Otro modo puede ser:

Código Delphi [-]
 
  if not (Key in ['0'..'9',#8]) or ((Key='0') and (Length(TEdit(Sender).Text)=0)) then
  begin
     Beep;
     Key:=#0;
  end;

Saludos.