Implementar "FloodFill" en CLX

[salvica]

Hola a tod@s de nuevo (soy un preguntón)

Alguien puede decirme como implementar la función FloodFill (del Canvas) en los objetos CLX? (o si hay una función parecida que haga lo mismo)

La he buscado en Delphi7 y por San Google y nada de nada

Yo hago esto y cuelgo el sistema (y además un manazas)

Código Delphi [-]
 procedure  rePintar( unCanvas:TCanvas; unColor:TColor );
 var
   colorMedio : TColor;
   puntoMedio : TPoint;
   X, Y       : integer;
 begin
   puntoMedio.X := unCanvas.ClipRect.Right  div 2;
   puntoMedio.Y := unCanvas.ClipRect.Bottom div 2;
   colorMedio   := unCanvas.Pixels[puntoMedio.X, puntoMedio.Y];
   for X:=0 to unCanvas.ClipRect.Right do
       for Y:=0 to unCanvas.ClipRect.Bottom do
           if( unCanvas.Pixels[X, Y]=colorMedio )
               then unCanvas.Pixels[X, Y] := unColor;
 end;

Gracias

[salvica]

Empezado por salvica

Yo hago esto y cuelgo el sistema (y además un manazas)

Solucionado, es que llamaba a la función antes de obtener la imágen (ya dije que soy un manazas)

De todas formas insisto, ¿Como se puede implementar la función "FillFlood"?
De nuevo gracias