procedure TForm1. В Таймер или в цикл (Sender: TObject); var Wnd:HWnd; begin Wnd := WindowFromPoint(Mouse.CursorPos); end;