重写Delphi FloodFill方法

因为如果图片是二元的图形的时候，FloodFill方法不能正确的填充到不规则的区域
procedure flood_fill_4(x, y:Integer;old_color, fill_color:Int64; vCanvas:TCanvas);
var
  vCurrentColor:Int64;
  p : TPoint;
begin
  p.X:=x;
  p.Y:=y;
  vCurrentColor:= vCanvas.Pixels[p.x,p.y];
  if (vCurrentColor=old_color) and  (vCurrentColor<>fill_color) then
  begin
    vCanvas.Pixels[x,y]:= fill_color;
    flood_fill_4(x,y+1,old_color,fill_color,vCanvas);
    flood_fill_4(x,y-1,old_color,fill_color,vCanvas);
    flood_fill_4(x-1,y,old_color,fill_color,vCanvas);
    flood_fill_4(x+1,y,old_color,fill_color,vCanvas);
  end
end;