Try except

[Keex]

Hallo, und zwar hab ich ein problem:

ich will das hier in meinem programm machen, um zu überprüfen ob ein Zahenwert in das Editfeld eingegeben wurde:

Code:

try
    Startlevel := strtoint(Edit1.text);
  except
    on EConvertError do
      begin
        ShowMessage('Fehler im Startlevel!');
        exit;
      end;
  end;

das funktioniert aber nicht. das programm bricht trotzdem komplett ab mit einer delphi fehlermeldung. wpran liegt das denn?
die ham das in der hilfe genauso gemacht °_°