Rück den Code doch mal schön ein. Also z.B. so:
Delphi-Quellcode:
with imbild.Canvas do
begin
case pixels[45,105] of
clred:
begin
brush.color:=clred;
floodfill (15, 15, clblack, fsborder);
end;
clwhite:
begin
brush.color:=clwhite;
floodfill (15, 15, clblack, fsborder);
end;
end;
end;
Das hilft bei derartigen begin-end Fehlern ungemein
(
imho fehlt bei dir ein end oder so bzw. ein ist an der falschen Stelle)