duda con Shapes y mouse move en C++ Builder

[paton]

Hola tengo un problema, ya que quiero colocar varios Shapes y cuando haga un clic en uno, que ese se pinte y si muevo el mause (mientras sigue el botón presionado) se pinten los otros por los cuales pase la flechita.
Utilicé una variable bool, el evento mouse down y el mouse move; pero no me funciona.
Si alguien me puede dar una pequeña mano, le agradecería mucho.
Salud.

[[coso]]

Hola, en el evento ondragover de todos los shapes

Código Delphi [-]
     Accept = source is TShape; // o Accept = source = TShape; o Accept = true, no se como se hace el 'is' en c++
     (TShape *)sender->Brush->Color := Random(0xFFFFFF);

con el dragmode de todos en dmAutomatic. Saludos.

[paton]

Muchas Gracias, Saludos.