Помогите с try...

[vodyara]

Допустим имеется вот такой код... Упростил до минимального понимания...
procedure TForm1.Button1Click(Sender: TObject);
var
u: real; // напряжение
r: real; // сопротивление
i: real; // ток
begin
Label1.Caption := '';
try
// инструкции, которые могут
// вызвать исключение (ошибку)
u := StrToFloat(Edit1.Text);
r := StrToFloat(Edit2.Text);
i := u / r;
except
on EZeroDivide do // деление на ноль
begin
ShowMessage('Сопротивление не может быть равно нулю!');
exit;
end;
on EConvertError do // невозможно преобразовать строку символов в число
begin
ShowMessage('Напряжение и сопротивление должны быть заданы числом.' + #13 +'При записи дробного числа используйте запятую.');
exit;
end;
end;
Label1.caption := FloatToStr(i) + ' А';
end;

По идее, при попытке деления на ноль должно вылезти сообщение " 'Сопротивление не может быть равно нулю"... а вместо этого вылвзит самая обычная ошибка! Облазил много форумов по этой теме, но ничего путевого так и не нашел... Как же сделать так, чтобы вылазило сообщение "'Сопротивление не может быть равно нулю!!!" СПАСИБО!

P.S.: Через условие IF...ELSE не катит... Именно нужно try, ни или еще какой-нють другой способ...

[Alar]

а что тебе мешает вывести Showmessage('Делить на ноль нельзя');

Всё понял в чём дело... Ты откомпилируй код. и потом запускай exe файл.

[vodyara]

Всё! Спасибо за помощь... всего-то нужно было...(ну я только учусь :-) ) Вопрос решен... Если кому-то интересно, отвечу... Если запускать программу в режиме компиляции, то ошибка будет появляться... Если запускать скомпилированный ехе файл, то все будет работать нормально!

[Квэнди]

Отключайте во время подобного дебагинга отображение ошибок компиляции в чем проблема.