Mehrere Befehle nach "then"

[dev0]

Case color_dreieck_zahler of    
    2 : ANWEISUNG;
    3 : ANWEISUNG;
           ...
    16 : begin 
          ANWEISUNG;
          ANWEISUNG2;
      end;
end;

Müste dann so aussehen.

[h4XX0r-7]

        Case color_dreieck_zaehler of
        16 : begin
        color_dreieck_zaehler := 1;
        canvas.Canvas.Brush.Color := clBlack;
        end;
        end;

Geht nicht.