图片跟着鼠标走，效果惨不忍睹，如何加快图片的跟进速度？
image1控件里面加入一个400*300的BMP图片，在 onmousemove事件中设置
image1.left:=x;
image1.top:=y;
结果效果惨不忍睹！现在想实现鼠标指到哪里，图片就立即跟到哪里，且鼠标指针始终位于图片的中央，能做到吗？
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
image1.Left:=X-image1.Width div 2;
image1.Top:=Y-image1.Height div 2;
end;
