Problema con excepción

[[nlsgarcia]]

franroju,

Puedes asignar este código al evento OnKeyPress del Control TEdit:

Código Delphi [-]
procedure TForm1.CheckNumberKey(Sender: TObject; var Key: Char);
begin
   If not (Key in ['0'..'9']) then Key := Chr(0);
end;

El código anterior solo permitirá ingresar números en el Control TEdit, otra opción interesante es el Control TMaskEdit con la mascara de edición 0 para permitir solo números.

Espero sea útil

Nelson.