为何不能移动窗体?

Question

哪个语法写错了?unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
     procedure WMMOVE(var Messavge:TMessage);message   ;    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
procedure TForm1.WMMOVE(var Messavge:TMessage);
begin
  showmessage('你刚才移动了窗体');
end;
end.
 

Answer 1

procedure TForm1.WMMOVE(var Messavge:TMessage);
begin
  showmessage('你刚才移动了窗体');
  inherited;
end;

Answer 2

procedure WMMove(var Message: TWMMove); message WM_MOVE;

Answer 3

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
  private
    { Private declarations }
     procedure WMMove(var Message: TMessage); message WM_MOVE;  public
    { Public declarations }  end;var
  Form1: TForm1;implementation{$R *.dfm}
 procedure TForm1.WMMove(var Message: TMessage);
begin
  showmessage('你刚才移动了窗体');
end;end.