Интересуют любые варианты.
Использую XE10
Мой вариант. Можно конечно подумать, только вероятно всё придумано до меня:
procedure TForm1.fill(x,y: integer);
begin
if bitdata1.GetPixel(x,y)=TAlphacolors.white then bitdata1.SetPixel(x,y,Talphacolors.Red);
if bitdata1.GetPixel(x+1,y) = TAlphacolors.White then
fill(x+1,y);
if bitdata1.GetPixel(x-1,y) = TAlphacolors.White then
fill(x-1,y);
if bitdata1.GetPixel(x,y+1) = TAlphacolors.White then
fill(x,y+1);
if bitdata1.GetPixel(x,y-1) = TAlphacolors.White then
fill(x,y-1);
end;