Dann wirf doch mal kurz einen Blick in diese Richtung:
TCanvas.FloodFill da steht es doch ausführlich drin.
Für dich sollte es dann etwa so aussehen:
Delphi-Quellcode:
with acanvas do
begin
brush.color:=clgray;
floodfill(X, Y, clwhite,fssurface);
end;