如何将自己开发的控件中的OnMouseMove 事件引用于MianForm的 Mainunit 中(50分)

我开发的控件属于TGraphicControl, 上次由croco帮忙,解决了问题,
今天又遇到困难了,就是如 控件为 Tmycontrol=Class(TGraphicControl)
若某MainForm中引用了该控件,则如何在mainUnit 中引用该控件的事件
onMouseMove.我已试过这样procedure TMainForm.mycontrolMouseMove(
Button:TMouseButton;Shift:Tshift;x,y:integer);但不行,请给具体方案;

不知道你的引用是什么意思？

type
TForm1 = class(TForm)
public
MyControl1: TMyControl;
procedure DoMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
end;

...
procedure TForm1.FormCreate(Sender: TObject);
begin
MyControl1 := TMyControl.Create(Self);
MyControl1.Parent := Self;
...
MyControl1.OnMouseMove := DoMouseMove; // 这样可否？
end;

procedure TForm1.DoMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
//....
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
MyControl1.Free;
end;

另：没有应答之前，可以将另一道重复的题删除掉。

接受答案了.