Перемещение Image за курсором

[werrey]

Здравствуйте.

Подскажите пожалуйста, как сделать, чтобы Image при клике на форме перемещалось вслед за курсором, например x=10,y=10 относительно курсора?

Недоработанный код:

procedure TForm1.FormClick(Sender: TObject);
var
  foo: TPoint;
begin
   GetCursorPos(foo);
   Image1.Left:=(foo.X);
   Image1.Top:=(foo.Y) ;
   //ShowMessage('(' + IntToStr(foo.X) + ' ,' + IntToStr(foo.Y) + ')');
end;

[VintProg]

Лови!

procedure TForm1.FormClick(Sender: TObject);
var
 foo: TPoint;

begin
  GetCursorPos(foo);
   Image1.Left:= foo.X- Form1.Left;
   Image1.Top:= foo.y - Form1.top;
end;

[werrey]

Спасибо большое!