Problem bei Fehlerverarbeitung

[DonnieDarko_02]

ich hab ein Editfeld, in das ein integer wert geschrieben werden soll, wird nun z.b. ein string eingegeben wird über showmessage fehlermeldung ausgegeben

Delphi-Quellcode:

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
       bevel4.Hide;
try    aanzahl:=strtoint(edit4.Text)
except
begin showmessage('Das ist kein gültiger Wert');exit; end;
edit4.Hide;
radiogroup1.Show;
radiogroup1.setfocus;

aber wie kann ich, nachdem die message angezeigt wird, wieder an den anfang der prozedur zurückkehren, dass ein neuer wert eingegeben werden kann?