Nachrichten der TApplication Klasse anfangen?

[1234588]

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  case msg.wParam of
    CM_BTN: beep;
  end;
  inherited;
end;

es piept
vielen dank