[vtdeleon]

Saludos

Usando el evento OnkeyPress de edit

Código Delphi [-]
if not key in ['0'..'9',#13,#8] then
  ShowMessage('Esta opcion no es valida.');