Ereignis vor überschreiben schützen

[faux]

Hallo!

Ich hab eine Klasse von TGroupBox abgeleitet. Desweiteren weise ich im Constructor dem OnMouseMove-Ereignis ein Ereignis zu, dass die GroupBox verschiebbar ist. Wenn jetzt aber außerhalb der Unit, der Klasse ein OnMouseMove-Ereignis zugeweisen wird, dann ist ja das vordefinierte nichtmehr aktiv.
Gibt es da eine Lösung?

EDIT:
Vielleicht ist es hilfreich wenn ich etwas Code poste:

Delphi-Quellcode:

unit Unit2;

interface

uses
  StdCtrls, JvSimScope, Classes, JvSwitch, Controls, Windows, Messages;

type
  TEkg = class(TGroupBox)
    (...)
    procedure EkgMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  public
    constructor Create(AOwner: TComponent); override;
    (...)
  end;

implementation

constructor TEkg.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  OnMouseMove := EkgMouseMove;
  (...)
end;

procedure TEkg.EkgMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Shift = [ssLeft] then
  begin
    ReleaseCapture;
    SendMessage((Sender as TGroupBox).Handle, WM_NCLBUTTONDOWN, 2, 0);
  end;
end;

(...)

end.