Override-Problem bei WMMoving

[SebE]

Code:

type
  TfmBar = class(TForm)
    btOeffnen: TSpeedButton;
    edFarbe: TEdit;
    edAktuelleFarbe: TEdit;
    edPosition: TEdit;
    OpenPictureDialog: TOpenPictureDialog;
    XPMenu: TXPMenu;
    procedure btOeffnenClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private-Deklarationen }
    procedure WMMOVING(var Msg: TWMMoving); message WM_MOVING; override; //<- Hier steht's
  public
    { Public-Deklarationen }
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;