动态创建了个TImage对象，可不知道如何实现它的拖动事件，及鼠标移入时显示相应的提示信息

Question

动态创建了个TImage对象，可不知道如何实现它的拖动事件,实在想不出如何让它与一个事件关联起来
有谁知道吗》》》
帮忙啊，急死啦
var
image:Timage;
begin
  image:=Timage.create(application.owner);
  image.Parent:=scrollbox1;
end;是动态创建的，可是我不知道如何实现它的MouseMove事件
有谁知道吗？？

Answer 1

加一句 Image.OnMouseMove:=ImageMouseMove;
procedure TForm1.ImageMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  MouseMove事件的代码
end