перемещение объекта за курсором мышки

[eu8cc]

помогите с кусочком кода
Есть gif анимированная картинка, которая должна плавно двигаться за курсором мышки.

[Basketman]

а картинка в TImage или как?

[DeKot]

По памяти - примерно должно быть так :

var x0,y0: integer; // глобальные переменные
               move: boolean; // глобальная переменная

 procedure Image1.MouseDown ( .....
 begin
   if Button <> mbLeft then move:= false
    else 
    begin
       move:= true;
       x0:= X;
       y0:= Y;
    end;
end;

 procedure Image1MouseMove(......
 begin
   if move then 
   begin
      Image1.SetBounds(Image1.Left + X - x0, Image1.Top + Y - y0,
                                Image1.Width,Image1.Height);
   end; 
 end;

  procedure Image1MouseUp( ......
  begin
     move:= false;
  end;