Ungültige Gleitkommaoperation bei Hausaufgabe

[peterpan1]

Hallo,

Ich bin neu hier im Forum und habe direkt ein Problem.

Wir haben in Info als Hausaufgabe auf, ein Programm zur Lösung quadratischer Gleichungen zu programmieren.

Mein Programm:

Delphi-Quellcode:

...

var p,q,l1,l2,v : real;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
 Close;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 p:=StrToFloat(PEdit.Text);
 q:=StrToFloat(QEdit.Text);

 if sqrt((p/2)*(p/2)-q)<0 then
   begin
    LEdit.Text:='Keine Lösung';
  end
else if
 sqrt((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.

Fehler :

Im Projekt1337.exe ist eine Exception der Klasse EInvalidOp aufgetreten. Meldung 'Ungültige Gleitkommaoperation'. Prozess wurde angehalten. ...

Wo liegt das Problem?

DANKE IM VORAUS!!