Перемещение прямоугольников нарисованных на канве

[Volodim]

Я хотел сделать перемещение прямоугольников нарисованных на канве методом повторного перерисовывания. Для этого я использовал функцию считывания координат курсора. Поскольку на моей канве фон белый, а прямоугольники желтые с черным ободком, я сделала проверку, считывая цвет пикселя с координатами курсора. Если курсор попал на желтый, нахожу координаты верхнего левого и нижнего правого углов прямоугольника и зарисовываю его белым прямоугольником. Далее я ничего не стал делать, так, как запустив уже сделанную часть я обнаружил, что при двойном клике ничего не происходит.
Поэтому я подозреваю, что сделал все слишком сложно и не правильно, подскажите правильный ответ:
Вот код:
Код C++

void __fastcall TForm1::Image1onDblClick(TObject *Sender)
{
 int x,y, xb, yb, xd, yd;
POINT cp;
 GetCursorPos(&cp);
 xb = x;
 yb = y;
 xd = x;
 yd = y;
if (Image1->Canvas->Pixels[x][y]== clYellow || Image1->Canvas->Pixels[x][y] == clBlack){
 while (Image1->Canvas->Pixels[xb][yb]== clYellow || Image1->Canvas->Pixels[xb][yb] == clBlack) {
yb = yb-1;
xb = xb-1;
 }
 while (Image1->Canvas->Pixels[xd][yd]== clYellow || Image1->Canvas->Pixels[xd][yd] == clBlack) {
yd = yd+1;
xd = xd+1;
}
 }
Image1->Canvas->Brush->Color=clWhite;
 Image1->Canvas->Rectangle(xb,yb,xd,yd);
}

Помогите пожалуйста.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Volodim]

Какие ошибки я допустил?