Canvas FloodFill

   
 Canvas.Brush.Color := clLime; // заливаем лимонным  цветом
  cl := Canvas.Pixels[x0 + round(1*dx), y0-round(dy*2)]; // получаем цвет пикселя
 // Image1.Canvas.TextOut(x0 + round(1*dx), y0-round(dy*2), '*'); // проверил что точка попала в замкнутую область
  Image1.Canvas.FloodFill(x0 + round(1*dx), y0-round(dy*2), cl, fsSurface); // закрашиваю область которая имеет заданым цвет

cl := Image1.Canvas.Pixels[x0 + round(1*dx), y0-round(dy*2)];

brush.Color:=clLime;//цвет заливки
floodfill(75,75,clRed,fsBorder);//clRed цвет линий, лучше их тоже сделать Lime.

Image1.Canvas.FloodFill(x0 + round(1*dx), y0-round(dy*2), clWhite, fsSurface);

procedure TForm1.Button1Click(Sender: TObject);
begin
  with Image1.Picture.Bitmap do begin
    Canvas.Brush.Color := clWhite;
    Width  := 200;
    Height := 200;
    Canvas.Brush.Color := clYellow;
    Canvas.Ellipse( 10,  10, 190, 190);
    Canvas.Pen.Color := clBlue;
    Canvas.MoveTo(  0, 50);
    Canvas.LineTo(200, 100);
    Canvas.Brush.Color := clLime;
    Canvas.FloodFill(100,  50, clYellow, fsSurface);
  end;
end;

  x:= -2;
   Image1.Canvas.MoveTo(x0 + round(dx*x), y0 - round(dy*sin(x) );
  while x<= 10 do
  begin
    Image1.Canvas.LineTo(x0 + round(dx*x), y0 - round(dy*sin(x) );
    x:= x+ 0.001;
  end;