Estoy desconcertado por el comportamiento de
los EMathError en Delphi 6 personal edition.

Ahi abajo va la unica Unit de un proyecto que
he preparado para ensayar el manejo de excepciones.

Como se ve, consta de una forma en la que solo
hay un boton y un TLabel. Al pulsar el boton, se
activa el procedure AlClicarBoton. En este, se
intenta domesticar el error que forzosamente
ha de ocurrir al mandarle que calcule la raiz
cuadrada de -2.

Cuando se le da al boton, a veces aguanta un
primer clic, y da la respuesta esperada
'Error matemático'. Pero cuando le doy dos o tres
clics, puf!, apagon de la pantalla seguido de
pantalla azul de error.

Que debo hacer para domesticar un error
matematico de ese tipo? Y que es lo que
estoy haciendo muy mal? Muchas gracias
por vuestra atencion.

Angel





unit testTry;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Respuesta: TLabel;
procedure AlClicarBoton(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.AlClicarBoton(Sender: TObject);
var
a: Double;
begin
try
a:= sqrt(-2);
respuesta.caption:= FloatToStrF(a,ffFixed,10,10);
except
on EMathError do begin
a:=0;
respuesta.caption:= 'Error matemático';
end
else
respuesta.caption:= 'Error no matemático';
end;
end;


end.