Source position: graphutil.pp line 62
procedure FloodFill(
Canvas: TCanvas;
X: Integer;
Y: Integer;
lColor: TColor;
FillStyle: TFillStyle
);