inkompatible typen

[Durg]

Hallo,
hab mal nen kleinen pq-formel rechner angefangen.
Ich hab aber das problem das er mir Inkompatible Typen als fehler anzeigt mehr nicht hier mal nen bisschen Code:

Code:

procedure TForm1.BtRechnenClick(Sender: TObject);
var
a, p, q, x1, x2, radikand: real;
begin
  A := StrToFloat(EdA.Text);
  P := StrToFloat(EdP.Text);
  Q := StrToFloat(EdQ.Text);
  radikand := sqr(p/2)-q;
    if radikand > '0' then
      begin
        EdComment.Text := 'Es gibt 2 Ergebnise';
        x1 := -(p/2) + sqrt(radikand);
        x2 := -(p/2) - sqrt(radikand);
      end
    else if radikand = '0' then
      begin
        EdComment.Text := 'Es gibt nur 1 Ergebnis';
        x1 := -(p/2) + sqrt(radikand);
        x2 := -(p/2) - sqrt(radikand);
      end
    else if radikand < '0' then
      begin
        EdComment.Text := 'Es gibt keine Ergebnise';
      end;
    Edx1.Text := FloatToStr(x1);
  Edx2.Text := FloatToStr(x2);
end;

Der fehler wird mir nach allen Thens angezeigt, was ist falsch??