Обработка исключений try... except

[Kati]

Не работает try... except. Помогите найти ошибку.

procedure TForm1.Button17Click(Sender: TObject);
var k1,k2,n:real;
Y1,Y2:real;
begin
try
k1:=StrToInt(Edit26.Text);
k2:=StrToInt(Edit27.Text);
n:=StrToInt(Edit28.Text);
Y1:=(100*k1)/n;
Y2:=(100*k2)/n;
Edit29.Text:=FloatToStr(Y1);
Edit30.Text:=FloatToStr(Y2);
except
on EZeroDivide do
begin
ShowMessage('Делить на ноль нельзя!');
exit;
end;
on EconvertError do
begin
ShowMessage('Значения должны быть числовыми');
exit;
end;
end;

[Volt]

ну в вашем случае не хватает только закрывающего end. Запустите exe ошибка будет обрабатываться. При запуске в среде делфи может выдать ошибку

[Kati]

В том то и дело что хватает(скопировала без него). Программа работает. Но когда пытаюсь ввести 0, или не числовые символы за место сообщения программа вылетает.
И ругается на EZeroDivide.

[Volt]

в вашем варианте нет end каторый закрывает except без него не запустится. Исключение EZeroDivide возникает при деление на нуль тоесть в вашем случае если Edit28.Text равно нулю. ну и плюс выше сказаное запускайте вне среды то есть скомпилированы exe

[Serge_Bliznykov]

попробуйте полученную программу запустить НЕ ИЗ СРЕДЫ Delphi
тогда всё будет работать с перехватом exception

Если же хотите, чтобы и в среде Delphi программа не останавливалась на исключениях, тогда
главное меню Delphi - Tools - Debugger Option -
закладка "Language Exceptions" убрать "птичку" с "Stop on Delphi Exceptions"

[Kati]

Огромное спасибо за помощь! Все работает!