обработка исключения в дельфи

[Ivan XXX]

вот в таком куске кода

try

StrToInt ( Edit1.Text );

except

on EConvertError do

begin

ShowMessage ( 'Неправильный формать данных' );
Exit;

end;

end;

программа вылетает на строчке "StrToInt ( Edit1.Text );" почему-то не обрабатывая исключение конвертации.

может кто знает в чем дело?

[mikе]

про вылет обработки исключения ничего не скажу, а вот саму задачу решить гораздо проще.

процедура
Val(S; var V; var Code: Integer);
помещает целое или дробное число, модержащееся в S в переменную V, если S — число.
в Code помещается код ошибки, какие конкретно значения не помню, поэксперементируй

т.е. если S не число, прога не вылетает как в StrToInt, а просто помещает в Code некоторый код ошибки.

[Ivan XXX]

пасиб .