Как отображать все сообщения Windows в Memo? DELPHI

[RDIce]

На форме только memo1.
Вот код:

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);

private
procedure apponmessage(var msg:tmsg;var handled:boolean);
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;


implementation

{$R *.dfm}
procedure tform1.apponmessage(var msg:tmsg);
begin
form1.Memo1.Lines.Add(inttostr(msg. message));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
application.OnMessage:=apponmessage ;
end;

end.

Сообщения Windows отображаются в числовом формате.
Возможно ли перевести их в буквенный ( wm_close,wm_paint..) ?

[evg_m]

1. создаем файл wmlist.txt с такими данными
123 =WM_DONE
234 =WM_PAINT
.. и так далее (с правильными кодами!)

2. грузим файл в TstringList

wmlist: TStrimgList;

wmlist:=TstringList.Create;
wmlist.loadFromfile('wmlist.txt');

3. достаем нужное

s:=inttostr(msg.message);
rs:=wmlist.Value[s];
memo1.lines.add(rs);