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;