aaahhhh
man sollte die Delphi-Hilfe etwas genauer lesen...
Dachte Color wäre die Füllfarbe, aber es ist die Begrenzungsfarbe:
procedure FloodFill(X, Y: Integer; Color: TColor; FillStyle: TFillStyle);
Jetzt funktioniert es:
Delphi-Quellcode:
Image.Canvas.Brush.Color:=FuellFarbe;
Image.Canvas.FloodFill(x,y,Pixels[x,y],fsSurface);
Danke
Ben