[C++Builder] Przesuwanie komponentu TImage

Chciałbym, aby użytkownik podczas działania programu miał możliwość przemieszczenia komponentu TImage poprzez kliknięcie w niego myszką i jej przesunięcie... niestety nie wiem jak to zrealizować ;-|

Może mógłby mi ktoś pomóc [stuk]

Nie dam głowy, ale już to chyba bylo na forum.
[code]int dx,dy;
bool clicked = false;

void __fastcall TForm1::Image1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{dx = X;
dy = Y;
clicked = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{clicked = false;}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{if (clicked)
{TPoint xy = Form1->ScreenToClient(Image1->ClientToScreen(Point(X-dx, Y-dy)));
Image1->Left = xy.x;
Image1->Top = xy.y;
}
}[/code]