Решение уравнения вида ax^4+bx^2+c=0

uses ..., Math; // Не забудь добавить модуль Math
procedure TForm1.Button1Click(Sender: TObject);
var a, b, c, x11, x12, x21, x22, y1, y2: real;
begin
  if (Edit1.Text <> '') and (Edit2.Text <> '') and (Edit3.Text <> '') then begin // если поля не пусты
    a := StrToFloat(Edit1.Text); // заполняем начальные переменные
    b := StrToFloat(Edit2.Text);
    c := StrToFloat(Edit3.Text);
    x11 := 0;
    x12 := 0;
    x21 := 0;
    x22 := 0;
    if a <> 0 then begin // если коэффициент а не равен нулю
      if (b * b - 4 * a * c) >= 0 then begin // если дискриминант больше либо равен нулю
        y1 := (-b + sqrt(b * b - 4 * a * c)) / (2 * a); // вводим замену и находим начальные корни
        y2 := (-b - sqrt(b * b - 4 * a * c)) / (2 * a);
        Edit4.Text := 'Корни биквадратного уравнения равны: '; // немного красоты
        if y1 >= 0 then begin // если первый начальный корень больше либо равен нулю, то
          x11 := sqrt(y1);
          x12 := -sqrt(y1);
          Edit4.Text := Edit4.Text + FloatToStr(RoundTo(x11, -3)) + ' ' + FloatToStr(RoundTo(x12, -3)) + ' '; // считаем корни и выводим их
        end;
        if y2 >= 0 then begin // аналогично для второго начального корня
          x21 := sqrt(y2);
          x22 := -sqrt(y2);
          Edit4.Text := Edit4.Text + FloatToStr(RoundTo(x21, -3)) + ' ' + FloatToStr(RoundTo(x22, -3));
        end;
      end else Edit4.Text := 'Решений нет!'; // выводим сообщение о том, что решений нет (если дискриминант будет меньше нуля)
    end else
      Edit4.Text := 'Корень линейного уравнения равен: ' + FloatToStr(-c / b); // если а = 0, то находим корень линейного уравнения
  end else
    Edit4.Text := 'Заполнены не все поля!'; // сообщаем о том, что заполнены не все поля
end;