Problem mit Exception

[Hansa]

Hallo Leute,

wo ist hier ein Fehler:

procedure Tform1.Edit1Exit(Sender: TObject);
var WGnr : integer;
begin
WGnr := 0;
try
WGnr := StrToInt (Edit1.text)
except
ShowMessage ('fehlerhafte Eingabe !');
Edit1.SetFocus;
end;
end;

Trotz try..except - Block kommt Fehlermeldung EconvertError und das Programm verabschiedet sich. Und zwar an der Stelle StrToInt.

Gruß
Hansa