Exception wird nicht angezeigt

[Rainer Wolff]

Man muss es ja wirklich nicht verstehen, aber folgendes passiert auf meiner Kiste:

Ich habe eine einfache VCL-App erstellt, zwei Buttons, eine IBDatabase. Wenn ich das Programm starte und Button1 drücke, erhalte ich die Exception. Wenn ich mit Button2 die Datenbank connecte und dann wieder Button 1 drücke, passiert nix mehr, keine Exception. ????

Code:

procedure TForm4.Button1Click(Sender: TObject);
var
  wurzel:Double;
begin
  wurzel:=Sqrt(-5);
end;

procedure TForm4.Button2Click(Sender: TObject);
begin
  with IBDataBase do
  begin
    Connected := False;
    DatabaseName := 'e:\data\test.gdb';
    Params.Values['user_name'] := 'sysdba';
    Params.Values['password'] := 'masterkey';
    Connected := True;
  end;
end;