Ja, danke!
Bin gar nicht darauf gekommen, dass das Problem bei "Mouse.CursorPos" liegt, weil der Ausdruck so harmlos aussieht.
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var
Mousepos: TPoint;
begin
Windows.GetCursorPos(Mousepos);
Label1.Caption := IntToStr(WindowFromPoint(Mousepos));
end;
Jetzt klappts