Exception auslösen funktioniert nicht

[Majortomster]

Hallo,

erstmal ein Stück Delphi Code:

Delphi-Quellcode:

tslist := TStringList.Create();
tslist.Clear;
tslist.Sorted := true;
tslist.Duplicates := dupError;
for i := 0 to hi do
begin
   try
      tslist.Add(str[i]));
   except
      // mach was
   end;
end;

Problem: der Block zwischen except und end wird niemals ausgeführt.
Wenn die Add Funktion eine Exception aufwirft, bekomme ich vom Programm trotzdem die Messagebox über die aufgetretene Exception:"Im Projekt ... ist eine Exception der Klasse EStringListError aufgetreten. Meldung:'In der Stringliste sind Duplikate nicht erlaubt'. Prozeß wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen."
Das sollte aber eigentlich nicht mehr kommen - stattdessen soll einfach der except-Block ausgeführt werden. Was mache ich falsch?
(Die Units "Classes" und "Sysutils" sind im uses-Teil aufgeführt)

Thomas