我想写个控件，继承自TIMAGE，当MOUSEDOWN事件发生的时候，可以开始响应，begin Drag(true);该怎么写呢？(0分)

unit drg_img;

interface

uses
SysUtils, Classes, Controls, ExtCtrls;

type
drg_img = class(TImage)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('user', [drg_img]);
end;

end.

换句话说就是怎么覆盖MOUSEDOWN事件呢？

protected
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);override;
覆盖基类的mousedown就可以了

或者这么说吧，AA是一个IMAGE；
怎么把ONMOUSEDOWN事件和另外一个过程联系起来呢？
procedure aaaa(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);

aa.OnMouseDown:=aaaa(aa, mbleft,Shift,X,Y);