Hola de nuevo.
Me quedé con la duda (por que coincido con
oscarac que el código no tendría que dar error) y la única forma que pude reproducir la excepción con cadena vacía fue así:
Código Delphi
[-]
procedure TForm1.SpinEdit1Change(Sender: TObject);
var
A: Integer;
begin
Caption := IntToStr(SpinEdit1.Value);
A := StrToInt(SpinEdit1.Text)
end;
Pero de ningún modo usando la función
StrToIntDef ya que si no se puede realizar la conversión el valor devuelto es el designado por defecto (0).
Saludos.