Nullstellen

[Mysterio08]

Hy Community,
ich habe folgendes Problem: Ich möchte Nullstellen von Quadratischen Funktionen berechnen. Ich versuche, das mit der PQ-Formel zu lösen, was manchmal klappt, manchmal aber auch nicht, was mich wundert!
Hier der Code:

Delphi-Quellcode:

procedure Nullstellen(a, b, c: Double);
begin
  //Variablen durch a teilen, damit PQ-Formel anwendbar
  a := a / a;
  b := b / a;
  c := c / a;
  //Prüfen, ob Diskriminante > 0
  if (sqr(b/2)) >= c then
  begin
    //Nullstellen ausrechnen
    Null1 := (-b/2) + Sqrt((sqr(b/2)-c));
    Null2 := (-b/2) - Sqrt((sqr(b/2)-c))
  end;

Also die Formel müsste eigentlich stimmen, genauso wie die Klammersetzung, ich habe keinen Fehler feststellen können.