Quadratische Gleichung- Delphi

[galoru]

Hey Leute bin neu im Forum und brauche Hilfe. Ich habe erst vor kurzem mit Delphi 7 angefangen zu programmieren(Schule) und stecke jetzt irgendwie fest. Meine Aufgabe ist es, ein Programm zu schreiben , welches die Diskriminante der Qudratischen Gleichung 0=x² +px +q berechnet. Soweit so gut, sobald D>0 = 2 Nullstellen, D=0 = 1 Nullstelle und wenn D<0 = keine Nullstelle. Ich muss nun dem Programm sagen, wenn D>0 dann muss es den RadioButton aktivieren,da wo 2 Nullstellen draufsteht. Wenn ein RB aktiviert hat und ich eine negative D kriege ,wird der andere RB mocht aktiviert, der erste bleibt so zu sagen "stecken". Wo ist jetzt der Fehler, bzw. wo sind
die Fehler ?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var p,q,D : Single;
begin
If (Edit1.Text='') and (Edit2.Text='')
then Showmessage ('Bitte Werte eingeben!')
else begin

p:= strtofloat(Edit1.Text);
q:= strtofloat(Edit2.Text);

D:= ((p*p)/2) -q ;

Label4.caption:=floattostr(D);
If (D>0)then begin Radiobutton2.Checked:=true ;
If (D=0) then begin Radiobutton1.checked:=true;
If (D<0) then begin Radiobutton3.checked:=true;

 end;
 end;
 end;
 end;
 end;
end.

http://www.imagebanana.com/view/awkwryzz/Unbenannt.JPG