Control Handle unter dem Mauscursor

[Neotracer]

Hallo,

ich habe folgenden Code um das Window Handle vom Control unter der Maus herauszufinden:
(calc.exe als Beispiel)

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  ahwnd: HWND;
  aPoint: Tpoint;
begin
  ahwnd := FindWindow('CalcFrame','Rechner');

  aPoint := Mouse.CursorPos;
  Windows.ScreenToClient(ahwnd,aPoint);

  Label1.Caption := 'X: '+IntToStr(aPoint.X);
  Label2.Caption := 'Y: '+IntToStr(aPoint.Y);

  aHwnd := ChildWindowFromPoint(ahwnd,aPoint);
  Edit1.Text := IntToStr(aHwnd);
end;

Allerdings bekomme ich nur das Window von einem Panel tiefer, aber nicht die Handle vom Button selbst.
Hier sieht man's:

http://www.abload.de/img/failzgajj.jpg

Was mache ich falsch?

Danke schonmal.