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