[DarKraZY]

Hola marcoszorrilla,

¿Qué tal si en lugar de poder provocar una excepción, utilizase la función "TryStrToInt"?

Código Delphi [-]
var
  a: Integer;
begin
  if not TryStrToInt(LabeledEdit1.Text, a) then
    ShowMessage('Formato de número incorrecto.');