TApplicationEvent und WM_CopyData

[Helmi]

Hallo,

ich möchte mit einem ApplicationEvent eine Windows-Message "WM_CopyData" abfangen und auswerten

Code:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin

end;

Code:

procedure TForm1.WMCopyData(var Msg: TWMCopyData);
begin
  with PMyRecord(Msg.CopyDataStruct.lpData)^ do
    begin
      neuladen                := B;
      Monitor_Client_Caption  := S;
    end;
end;

Wie kann ich den zweiten Code in den oberen Einbinden (hauptsächlich gehts um das "CopyDataStruct")?

mfg
Helmi