уравнение ax^4+cx^2=0 в Delphi

[VENOM217]

Написал такую штуку:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
     begin
       case Key of
          #8,'0'..'9' :  ; // цифры и <Back Space>

           '.',',': // разделитель целой и дробной частей числа
                begin
                  if Key <> DecimalSeparator then
                  Key := DecimalSeparator; // заменим разделитель на допустимый
                  if Pos(DecimalSeparator,Edit1.Text) <> 0
                  then Key := Chr(0); // запрет ввода второго разделителя
                end;
           '-':    // минус можно ввести только первым символом,
                // т.е. когда ячейка пустая
                if Length(Edit1.Text) <> 0
                      then Key := Chr(0);

        else   // остальные символы запрещены
               key := Chr(0);
    end;
end;
end;


procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  begin
     begin
       case Key of
          #8,'0'..'9' :  ; // цифры и <Back Space>

           '.',',': // разделитель целой и дробной частей числа
                begin
                  if Key <> DecimalSeparator then
                  Key := DecimalSeparator; // заменим разделитель на допустимый
                  if Pos(DecimalSeparator,Edit2.Text) <> 0
                  then Key := Chr(0); // запрет ввода второго разделителя
                end;
           '-':    // минус можно ввести только первым символом,
                   // т.е. когда ячейка пустая
                if Length(Edit2.Text) <> 0
                      then Key := Chr(0);

        else   // остальные символы запрещены
               key := Chr(0);
       end;
     end;
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
Var
a,c,x,y:real;

begin
  a:= StrToInt (Edit1.Text);
  c:= StrToInt (Edit2.Text);
   if a=0 then
    Edit3.Text:= 'Нет решений! Повторите ввод а.'
   else
   if (a>0) and (c>0) then
    Edit3.Text:= 'Нет решений! Повторите ввод коэффициентов.'
    else
    if (a<0) and (c<0) then
    Edit3.Text:= 'Нет решений! Повторите ввод коэффициентов.'
    else

   begin
      x:= sqrt(c/a);
      y:= -sqrt(c/a);
      Edit3.Text:= 'x=0;' + 'x=' + floattostrF (x,fffixed,6,2) +';'+'x=' +floattostrF(y,fffixed,6,2);
   end;
end;

end.

но при вводе отрицательного числа он выдаёт:
Project Project1.exe raised exception clacc EInvalidOp with message 'Invalid floating point operation'.

Я думаю что-то напутал с типами переменных...

[Stilet]

sqrt(c/a);

Видимо сдесь выдает...
Я бы условие выше переписал так:

if (a<0) or (c<0)

[evg_m]

  if (a*b)>=0 then
    begin
    z;=0;
    Edit3.Text:= 'Других решений нет! Повторите ввод коэффициентов.'
    else

   begin
      z:=0;
      x:= sqrt(-c/a);
      y:= -x;
   end;

[VENOM217]

Я бы условие выше переписал так:

if (a<0) or (c<0)

если написать через or не получится верное решение, мне ведь нужно что бы одновременно коэффициенты а и с не были с одинаковым знаком, иначе он будет извлекать корень из отрицательного числа, что невозможно!

я считаю что я что-то напутал с типами переменных... мне нужно что бы он посчитал и выводил в поле Edit ответ.
Нужно что бы он считал отрицательные числа ( с положительными проблем не было, но при вводе отрицательного чсла вылетает ошибка)

[VENOM217]

Безимени-1.jpg

вот моё математическое решение для наглядности

[evg_m]

смотри 3 строку своего решения
x=0 или .... разве это не есть решение?!

x:= sqrt(-----c/a); (-) повторил чтобы было заметно