Events überwachen

[Xate]

Wie kann ich denn explizit auf einen ausgelösten Button reagieren?!
BN_Clicked wird auch ausgelöst, wenn ich auf den Taskbareintrag klicke.
Benutze ich wie jetzt WM_COMMAND oder CN_COMMAND, wird die Variable t nie gefüllt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Button1ClicktEvent'+'___:'+t);                                                                                 
end;

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if msg.message = WM_COMMAND then
  begin
    if msg.wparam = BN_CLICKED then
      t := TimeToStr(now);
  end;
end;