delphi 如何拦截和处理WINDOWS消息？

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
  procedure pr(var mes:TWMKey );message wm_key;
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}{ TForm1 }procedure TForm1.pr(var mes: TWMKey);
begin
if mes.CharCode =13 then
   showmessage('return');
end;end.