Как с помощью FloodFill залить цветом замкнутую область в рисунке Picture?

uses GraphABC;
 
procedure FloodFillExample;
var
  x, y: integer;
begin
  // Устанавливаем размер окна
  SetWindowSize(400, 400);
 
  // Рисуем замкнутую область (например, круг)
  SetPenColor(clBlack);
  SetBrushColor(clWhite);
  Circle(200, 200, 100);
 
  // Указываем точку, с которой начнется заливка
  x := 200;
  y := 200;
 
  // Заливаем область цветом
  SetBrushColor(clBlue); // Цвет заливки
  FloodFill(x, y, clWhite); // Заливаем область, ограниченную белым цветом
end;
 
begin
  FloodFillExample;
end.

uses graphabc;
begin
  var p:= new Picture('test.png');
  p.floodfill(50,50,clgreen);
  p.Save('test-2.png');
end.

uses graphabc;
begin
  var p:= new Picture('test.png');
  p.floodfill(50,50,clgreen);
  p.Save('test-2.png');
end.

uses graphabc;
 
var
  targetColor: Color; // Цвет, который нужно заменить
  p: Picture; // Объект изображения
 
// Рекурсивная процедура заливки
procedure Fill(x, y: Integer; color: Color);
begin
  // Проверка границ
  if (x < 0) or (x >= p.Width) or (y < 0) or (y >= p.Height) then
    Exit;
 
  // Проверка цвета текущего пикселя
  if p.GetPixel(x, y) <> targetColor then
    Exit;
 
  // Устанавливаем новый цвет
  p.SetPixel(x, y, color);
 
  // Рекурсивно заполняем соседние пиксели
  Fill(x + 1, y, color);
  Fill(x - 1, y, color);
  Fill(x, y + 1, color);
  Fill(x, y - 1, color);
end;
 
// Процедура для заливки
procedure FloodFill(x, y: Integer; color: Color);
begin
  // Получаем цвет пикселя, который нужно заменить
  targetColor := p.GetPixel(x, y);
 
  // Если цвет пикселя совпадает с цветом, который нужно заменить, выходим
  if targetColor = color then
    Exit;
 
  // Начинаем заливку с указанной точки
  Fill(x, y, color);
end;
 
begin
  // Загружаем изображение
  p := new Picture('test.png');
 
  // Заливаем цветом
  FloodFill(50, 50, clGreen);
 
  // Сохраняем измененное изображение
  p.Save('test-2.png');
end.