try..except-Routine wird ignoriert; Fehler nicht abzufangen

[Philippe Sch.]

hallo
was macht man, wenn eine Fehlerbehandlungsroutine einfach ignoriert wird? Die folgenden Zeilen z.B. (absichtlich der online-Hilfe-Beispiel nachempfunden) wird nicht durchgeführt:

Code:

procedure TForm1.Button1Click(Sender: TObject);
const
CRLF = #13 + #10;
var i:string;
datum:TDate;
begin
i:='32.32.2002' ;
try datum:=StrToDate(i);
    except on E: EConvertError do
    Showmessage(E.ClassName + CRLF + E.Message);
    end;
end;

Hat jemand eine Idee, wie man die Fehlerbehandlung erzwingen kann?
Merci
Philippe