Dessins en XOR sous BCB6

Bonjour,
j'ai un léger soucis avec un dessin en XOR sous Borland C++ Builder 6.
En effet, je voudrait dessiner un rectangle (début : MouseDown, fin : MouseUp) sur un TPaintBox avec un "pré-dessin" en XOR sur le MouseMove... Cependant, lorsque je mets le Canvas->Pen->Mode = pmXor, le dessin n'apparait pas à l'écran... (Pour info, si je laisse le Canvas->Pen->Mode = pmCopy, tout se passe bien...

Voilà le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 //--------------------------------------------------------------------------- void TRectObj::MoveMouse(int X, int Y) { if (!m_isDrawing) return; m_canvas->Pen->Mode = pmXor; m_canvas->Brush->Style = bsClear; if ((m_currentPoint.x != -1)&&(m_currentPoint.y != -1)) DrawRect(m_firstPoint, m_currentPoint); m_currentPoint = TPoint(X,Y); DrawRect(m_firstPoint, m_currentPoint); }
Si quelqu'un pouvait m'aider...
Merçi d'avance!