WndProc funktioniert nicht mit Buttons auf Formular

[Poolspieler]

Hi,
ich möchte alle Clicks auf ein Formular mitloggen.
Dabei soll u. a. auch der Komponentenname mitgeloggt werden.
Ich wollte dies mit WndProc des Formulars machen, doch leider werden
nur Clicks auf die Formularebene oder auf labels registriert.
Für Clicks auf Buttons wird mein WndProc NICHT aufgerufen - kann mir
jemand sagen, warum das so ist (und wie ich es besser machen kann...)

Delphi-Quellcode:

procedure TForm1.WndProc(var Message: TMessage);
var
  MausPos: TPoint;
  control: TControl;
begin
  If Message.Msg = WM_LBUTTONDOWN then begin
    GetCursorPos(MausPos);
    MausPos := ScreenToClient(MausPos);
    control := form1.ControlAtPos(MausPos, false, true);
    if control = nil then
      debugdatei.schreiben('WndProc: WM_LBUTTONDOWN --- nil ---')
    else
      debugdatei.schreiben('WndProc: WM_LBUTTONDOWN ' + control.Name);
  end;
  inherited WndProc(Message);
end;

Schon mal danke

Poolspieler