一个消息处理的问题,在线等，谢谢

//这是个改变窗体大小的消息处理，想改变memo宽度和长度，为什么没发生任何变化，应该怎么做？？
　　另外我想做一些关于消息处理的例子，不知道哪里有的下载，谢谢有人可以告诉我吗？unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, StdCtrls;type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  procedure handlemsg(var m:tmsg;var handled:boolean);
  end;
var
  Form1: TForm1;
implementation{$R *.dfm}procedure TForm1.handlemsg(var m:tmsg;var handled:boolean);
begin
  if m.message =WM_size then                   //窗体大小改变的消息处理，想改变memo1宽度和长度，为什么运行之后没产生任何效果，应该怎么做？？
  begin
    memo1.width:=form1.Width -10 ;
    memo1.Height :=form1.Height -135
  end;
  handled:=false;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
application.OnMessage :=handlemsg;
end;end.