有关声明方法的问题，请各位大侠帮帮我。

Question

小弟在学消息时，遇到要声明一个TMessageEvent 类的方法,不知为何在编释时总时提示声明的方法不存在。原码如下：
=================================================
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    AppMessEnve: TMessageEvent;
  public
    property AppMessEnve: TMessageEvent read AppMessEnvet write AppMessEnvet;{此句编释时出错，无法通过}    
    Procedure AppMessEnvet(var msg:TMessage; var Handled :boolean);
  end;var
  Form1: TForm1;
  NumMessage:Integer;
implementation{$R *.dfm}procedure TForm1.AppMessEnvet(var msg: TMessage; var Handled: boolean);
begin
  inc(NumMessage);
  Handled := False;
end;
end.
====================编释出错信息==========================
[Error] Unit1.pas(18): Identifier redeclared: 'AppMessEnve'

Answer 1

这样改一下就可以了
private
    FAppMessEnve: TMessageEvent;
  public
    property AppMessEnve: TMessageEvent read FAppMessEnvet write FAppMessEnvet;///    
    Procedure AppMessEnvet(var msg:TMessage; var Handled :boolean);
  end;

Answer 2

这样改一下就可以了
private
    FAppMessEnve: TMessageEvent;
  public
    property AppMessEnve: TMessageEvent read FAppMessEnvet write FAppMessEnvet;///    
    Procedure AppMessEnvet(var msg:TMessage; var Handled :boolean);
  end;