[Z@voorchik]

помогите, плииз... добавил блок try...except, а при проверке программы все равно выдает исключение. почему?

Код:

function LinearEquation(a: real; b: real): real;
begin
  try
    Result := -(b / a);
  except
    on EZeroDivide do
      begin
        MessageBeep(MB_ICONERROR);
        MessageDlg('Коэффициент а не должен равняться нулю!', mtError, [mbOK], 0);
        Exit;
      end;
    on EConvertError do
      begin
        MessageBeep(MB_ICONERROR);
        MessageDlg('Введите коэффициенты!', mtError, [mbOK], 0);
        Exit;
      end;
  end;
end;