Konstantenausdruck in case-Verzweigung erwartet

[Fuchspower]

Mein Problem ist wie folgt:

Delphi-Quellcode:

procedure TForm1.BEinsClick(Sender: TObject);
begin
with imbild.Canvas do
 begin
  case pixels[45,105] of
clred: begin brush.color:=clred;
 floodfill (15, 15, clblack, fsborder); end;
clyellow: begin brush.color:=clyellow;
 floodfill (15, 15, clblack, fsborder); end;
clgreen: begin brush.color:=clgreen;
 floodfill (15, 15, clblack, fsborder); end;
clwhite: begin brush.color:=clwhite;
 floodfill (15, 15, clblack, fsborder); end;
clblue: begin brush.color:=clblue;
 floodfill (15, 15, clblack, fsborder); end;
clfuchsia: begin brush.color:=clfuchsia;
 floodfill (15, 15, clblack, fsborder); end;

  case pixels[85,105] of
clred: begin brush.color:=clred;
 floodfill (15, 35, clblack, fsborder); end;
clyellow: begin brush.color:=clyellow;
 floodfill (15, 35, clblack, fsborder); end;
clgreen: begin brush.color:=clgreen;
 floodfill (15, 35, clblack, fsborder); end;
clwhite: begin brush.color:=clwhite;
 floodfill (15, 35, clblack, fsborder); end;
clblue: begin brush.color:=clblue;
 floodfill (35, 15, clblack, fsborder); end;
clfuchsia: begin brush.color:=clfuchsia;
 floodfill (35, 15, clblack, fsborder); end;

 end;
end;

nun verlangt er beim vorletzten end einen Konstantenausdruck. Ich habe relativ wenige Erfahrungen mit Delphi und dies ist nur ein Auszug der gesamten Procedure, der Rest ist aber genauso aufgebaut.