Ungültige Gleitkommaoperation bei Hausaufgabe

[peterpan1]

Delphi-Quellcode:

p:=StrToFloat(PEdit.Text);
 q:=StrToFloat(QEdit.Text);


 if ((p/2)*(p/2)-q)<0 then
   begin
    LEdit.Text:='Keine Lösung';
    L1Edit.Text:='';
    L2Edit.Text:='';
  end
else if
 ((p/2)*(p/2)-q)=0 then
  begin
   LEdit.Text:='1 Lösung';
   l1:=-(p / 2) + sqrt((p/2)*(p/2) - q)
  end
 else
  begin
   LEdit.Text:='Zwei Lösungen';
   l1:=-(p / 2) + sqrt((p/2)*(p/2) - q);
   l2:=-(p / 2) - sqrt((p/2)*(p/2) - q);
  end;

L1Edit.Text:=FloatToStr(l1);
L2Edit.Text:=FloatToStr(l2);

end;

end.

Das ist mein aktuelles Programm und ich komme nicht drauf, was an der Zeile

Delphi-Quellcode:

if ((p/2)*(p/2)-q)<0 then

falsch sein soll...