Konstantenausdruck erwartet

[aerotech]

Delphi-Quellcode:

procedure Stufen;
begin

  count:= count +1;

  with Form1 do begin
    case count of

     1: begin
     Lb_Stufe1.Font.color := clred;
     Lb_Stufe15.Font.color := clWhite;
     end;

     2: begin
     Lb_Stufe2.Font.color := clred;
     Lb_Stufe1.Font.color := clWhite;
     end;

     3: begin
     Lb_Stufe3.Font.color := clred;
     Lb_Stufe2.Font.color := clWhite;
     end;

     4: begin
     Lb_Stufe4.Font.color := clred;
     Lb_Stufe3.Font.color := clWhite;
     end;

     5: begin
     Lb_Stufe5.Font.color := clred;
     Lb_Stufe4.Font.color := clWhite;
     end;

     6: begin
     Lb_Stufe6.Font.color := clred;
     Lb_Stufe5.Font.color := clWhite;
     end;

     7: begin
     Lb_Stufe7.Font.color := clred;
     Lb_Stufe6.Font.color := clWhite;
     end;

     8: begin
     Lb_Stufe8.Font.color := clred;
     Lb_Stufe7.Font.color := clWhite;
     end;

     9: begin
     Lb_Stufe9.Font.color := clred;
     Lb_Stufe8.Font.color := clWhite;
     end;

     10: begin
     Lb_Stufe10.Font.color := clred;
     Lb_Stufe9.Font.color := clWhite;
     end;

     11: begin
     Lb_Stufe11.Font.color := clred;
     Lb_Stufe10.Font.color := clWhite;
     end;

     12: begin
     Lb_Stufe12.Font.color := clred;
     Lb_Stufe11.Font.color := clWhite;
     end;

     13: begin
     Lb_Stufe13.Font.color := clred;
     Lb_Stufe12.Font.color := clWhite;
     end;

     14: begin
     Lb_Stufe14.Font.color := clred;
     Lb_Stufe13.Font.color := clWhite;
     end;

     15: begin
     Lb_Stufe15.Font.color := clred;
     Lb_Stufe14.Font.color := clWhite;
     end;

       if count = 15 then  begin

       Frage1.Visible := false;
       Frage2.Visible := false;
       Frage3.Visible := false;
       Frage4.Visible := false;
       end;

    end;
  end;
end;

beim end unter der if anweisung kommt -> [Fehler] Unit1.pas(184): Konstantenausdruck erwartet

ich hab mal end; weggenommen, welche hinzugefügt, aber nix passiert...immer die meldung (s.o)