Eingabefehler mit try except abfangen

[Teesäufer]

Hallo zusammen,

ich habe ein Problem: Ich habe ein Eingabefeld, bei dem man eine Zahl eingeben soll. Nun kommt es ja aber manchmal vor, dass man sich vertippt und versehentlich einen Text eingibt. Darum habe ich das in try except eingebettet. Nur leider hilft es nichts. So sieht das ganze aus:

try
ergebnis:=strtoint(Edit1.text);
except
label4.caption:='Fehlerhafte Eingabe'+ergebnistext;
end;

Trotzdem bricht das Programm mit einer Fehlermeldung ab, wenn ich einen Text eingebe. Was mache ich falsch?