Delphi meckert bei Case of...kA warum?!?

[SimOr]

Jo, also delphi meckert komischerweise bei case of...was ich überhaupt nicht versteh...
also, ich hab mal so klein privat und ganz allein ein program geschrieben das die pq formel ausrechnet, so als übung.
mit dem rechnerischen gibts da auch kein problem, und ohne case of läuft das program auch, ach..ich zeig euch erstmal den source

Delphi-Quellcode:

  private
    { Private-Deklarationen }
    //Variabeln
    P, Q, X1, X2, D    : Real;
    M                  : Integer;
    //Procedures
    procedure Pq;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Procedure TForm1.Pq;
//Eingabe und Abfrage von P, Q
begin
P:=StrtoFloat(EdP.text);
Q:=StrtoFloat(EdQ.text);
//Berechnung von "minus P halbe" und zuweisung von X1, X2
X1:=(P * -1) / 2;
X2:=(P * -1) / 2;
//Berechnung der Diskriminanten
D:=sqr(P / 2) - Q;
//If Abfrage zum verhindern von Abstürzen ( D < 0)
If D < 0 then
  begin
  Memo1.Lines.add('Die Gleichung besitzt keine Lösung');
  end
  else
//Ausrechnen von X1, X2
begin
X1:=X1 + sqrt(D);
X2:=X2 + sqrt(D);
end;
//Benutzen einer Marker Variabel für Antwortsatz
If D < 0 then
  M:=1
  else
    begin
    If D = 0 then
      M:=2
      else
      M:=3;
    end;
end;
//Case M of für Antwortsatz
Case M of
1 : Memo1.lines.add('Die Gleichung hat keine Lösung');
2 : Memo1.lines.add('Die Gleichung hat eine Lösung');
3 : Memo1.lines.add('Die Gleichung hat zwei Lösungen');
end

procedure TForm1.Button1Click(Sender: TObject);
begin
Pq;
end;

end.

also
wenn ich das case rauslasse geht das programm, auch wenns noch nich soweit ist was auszugeben, is auch inich von belang hier...aber sobald ich das case of reinschreib sagt der deklaration erwartet aber case gefunden...und hält genau hinter dem case an..?!?
naja, weiß nich was delphi von mir will..wisst ihrs?!?