Wie verwende ich die If-Befehle

[Muddy]

Hallo Leute. Ich habe wiedermal ein PRoblem bei Turbodelphi bei meinen Info HA's.

Und zwar zeigt er mir wiedermal einen Fehler an.
Am besten hier der Code:
p := strtofloat (edit1.Text);
q := strtofloat (edit2.text);
if sqrt ( sqr (p) / 4 -q) > 0 then ;
x = -p/2 + sqrt ( sqr (p) / 4 -q) ;
y = -p/2 - sqrt ( sqr (p) / 4 -q) ;
else
if sqrt ( sqr (p) / 4 -q) = 0 then ;
x = -p/2 ;
y = -p/2 ;
else
if sqrt ( sqr (p) / 4 -q) < 0 then ;
showmessage ("This answer is impossible");

so. bei dem ersten 'else erwartet er eigentlich das END. Ich verstehe nich warum.
Hier die Meldung:

[Pascal Fehler] QuadtratischeGleichung1.pas(44): E2153 ';' nicht erlaubt vor einem 'ELSE'