Salutation!

J'utilise Delphi 7 et je semble avoir un problème avec ma gestion d'exceptions.
J'ai lu un tutoriel à ce sujet (http://flash-koti.developpez.com/art...tionexception/) et mon logiciel ne réagit pas de la même façon.

Par exemple, si j'exécute le code suivant:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button1Click(Sender: TObject);
var
	param1 : Double;
begin
	try
		param1 := StrToFloat(Edit1.Text);
		{suite des instructions}
	except
		on EconvertError do
			MessageDlg('Erreur : Vous devez entrer un réel'
				+#10#13+'Le séparateur décimal est : '+DecimalSeparator, mtError, [mbOk], 0);
	end;
	{Autre instruction non sensible}
end;
Je reçois ce message:


Puis ce message:


En théorie, vu que je fais de la gestion d'erreurs, seulement le premier message devrait s'afficher, non?

Voici ma configuration (Tools / Debugger Options):


Si je décoche "Stop on Delphi Exception", le premier message n'est plus affiché. Cependant, si j'enlève la gestion d'erreur (try...except), c'est aussi seulement le 2e message qui apparaît.

Quelqu'un peut m'aider avec ceci?

Merci beaucoup!