delphi probleme....pq

[wuschi]

so ich soll für die schule die pq-formel als prog schreiben...hab jetzt auch was gemacht aber das funzt nicht wirklich^^
kann mir mal jemand helfen denn ich weiß absolut nicht mehr weiter

Delphi-Quellcode:

procedure TForm1.startClick(Sender: TObject);
var p,q,x1,x2,wurzel,z  : extended ;
  begin
    if
      sqrt(p*p/4-q) < 0
      then
        keine.Visible := True
      else
      begin
        if
          sqrt(p*p/4-q) = 0
          then
          begin
            wurzel := sqrt(p*p/4-q);
            z := p/2*-1;
            x1loesung.Visible := True;
            x1loesung.Caption := floattostrf(z,ffFixed,2,2);
          end
          else
            if
            sqrt(p*p/4-q) >0
              then
              begin
                x1:= z+wurzel;
                x2:= z-wurzel;
                x1loesung.Visible := True;
                x1loesung.Caption := floattostrf(x1,ffFixed,2,2);
                x2loesung.Visible := True;
                x2loesung.Caption := floattostrf(x2,ffFixed,2,2);
              end
  end;
  end;

[edit=Matze][delphi]-Tags gesetzt. Zukünftig bitte selbst einfügen. MfG, Matze[/edit]