Miksi Tämä koodi ei toimi?

Seuraava koodinpätkä on suoraan delphin helpistä mutta aina kun koitan kääntää sen niin valittaa tuota kohtaa jonka olen tähdellä merkannut*...
..................................................................................................
The following code handles a custom messagethat the application sends to itself when a file is ready for reading.

const
WM_FILEREADY = WM_USER 2000;
procedure TForm1.FormCreate(Sender: TObject);

begin
Application.OnMessage := AppMessage;*
end;

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.message = WM_FILEREADY then
begin
Memo1.Lines.LoadFromFile(StrPas(PChar(Msg.lParam)));
Handled := True;

end;

{ for all other messages, Handled remains False }
{ so that other message handlers can respond }
end;

..................................................................................................

Kaikki on kirjoitettu niinkuin pitää mutta aina valittaa tuota Appmessage kohtaa, pitääkö siitä tehdä muuttuja vai miten toimin jotta saan hanskattua nämä messaget?