Решение квадратного уравнения Опции

[Искатель]

Здравствуйте!
С вашего позволения попрошу у вас совета в решении такой проблемы:
Моя программа (в Делфи), вычисляет корни квадратного уравнения.
Я затрудняюсь с добавлением этой проверки: if d=0 then...
Подскажите, как правильно это вписать?
И если можно, помогите с кнопочкой "Очистка", не представляю как её запрограммировать.

[-TarasBer-]

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

Поменяй тот кусок на

  if D<0 then form3.show
  else begin
    form2.panel1.caption:=FloatTostr(((-b)+Sqrt(D))/(2*a));
    if abs(D) < 1E-9 then form2.panel2.caption:= ''
    else form2.panel2.caption:=FloatTostr(((-b)-Sqrt(D))/(2*a));
    form2.show;
  end;