怎样给几个图形对象设置相同的事件处理动作？详细内容请看里面(200分)

我想在界面上一个按钮名称为【增加图片】，点击这个按钮后，在用户界面上增加了一个图片，并且单击此图片和在鼠标在上面移动时候有类似的处理代码：
下面是代码：
myImage:=tImage.Create(owner);
myImage.Picture.LoadFromFile('c:/mybmp.bmp');
myImage.OnMouseDown :=myMouseDown; // 这里对吗？ myImage.OnMouseMove :=myMouseMove; // 这里对吗？

myMouseDown和myMouseMove的定义处理代码：
procedure myMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure myMouseMove(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer) ;

procedure tform1.myMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
showmessage(sender.ClassName +'onMouseDown');
end;
procedure tform1.myMouseMove(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
showmessage(sender.ClassName +'onMouseMove');
end;

但我发现不能正常运行,我也对Delphi不是很熟悉,希望各位大哥大姐帮忙,不要嫌此问题太菜.

myImage:=tImage.Create(self);
myImage.Parent:=Form1; //这一句可不能少
myImage.Picture.LoadFromFile('c:/mybmp.bmp');
myImage.OnMouseDown :=myMouseDown;
.....
照这个样子再试试？？

谢谢你,已经成功,请继续帮我看两个问题,Id为2409508 和2409532的问题

没有网址怎么去？用这个ID怎么个查法？没试过哦