не работает "try - except"!

[TLabel]

хотель я когда-то проверить функцию try.
ну и проверил.

код:

procedure TFForm.ErrorButtonClick(Sender: TObject);
var
zz:integer;
begin
try
zz:=strtoint(Edit1.Text);
except
on EConvertError do
showmessage('Thats no correct!');
end;
end;


Вовремя runtime B Edit1 'SDJS48FJ/&()=' вписал и на кнопку накликнул.
результат проверки был удивительный:try He зроботол а ещё какай-то ошибка выскачела.
што делать??? try явно не выполняет свойу работу. а может быть я штото нетак делаю?

буду ждать любой помощьи

[veniside]

запусти без отладчика

[MyLastHit]

Tools ->Debugger Option->Language exception -> снять галку со Stop on Exception
(пишу на память, как то так помоему. Вернуть не забудьте только)

[asmodey1]

"on EConvertError do" - совершенно лишняя строка.
А запускать нужно не из-под Дельфи.

[chertovich]

Сообщение от asmodey1

"on EConvertError do" - совершенно лишняя строка.

Не лишняя, а для обработки класса исключения EConverError

[Пепел Феникса]

Не лишняя, а для обработки класса исключения EConverError

в данном случае лишняя, так:
1)нет разницы какое исключение обрабатывать в этом месте(ибо обработчик по коду общий), то есть нет спецификации на разные типы исключений.
2)объект исключения не нужен.

[TLabel]

Tools ->Debugger Option->Language exception -> снять галку со Stop on Exception

зработоло!

А запускать нужно не из-под Дельфи.

И это тоже!!


всем большово спасибо за ответы!!!