[angvelem]

Я так понимаю, нужно полностью самостоятельно обработать событие OnMouseMove. Можно сделать так:

Код:

  TButonImage = class (TImage)
...
  protected
    procedure MouseMove(Sender : TObject; Shift : TShiftState; X, Y : Integer);
...
  end;
...
constructor TButonImage.Create(Aowner: TComponent);
begin
...
  OnMouseMove := MouseMove;
end;

procedure TButonImage.MouseMove(Sender : TObject; Shift : TShiftState; X, Y : Integer);
begin
...
end;