завршить выполнение процедуры

[welcomeTo]

Здравствуйте, как завершить выполнение процедуры при возникновении исключительной ситуации?

try   n:=StrToInt(Edit1.text);
 except   on EConvertError do  MessageDlg('Неверные данные', mtWarning, [mbOk], 0);
exit;
 end;

Пишу EXIT; , но почему то выполняется остаток кода.

[welcomeTo]

Разобрался. если кому будет полезно - надо было поставить операторные скобки Begin end.

do BEGIN  MessageDlg('Неверные данные', mtWarning, [mbOk], 0);
exit; 
END;