EX>procedure TForm1.TmrTimer(Sender: TObject); EX>begin EX> if WindowFromPoint(Mouse.CursorPos) = Pnl.Handle then EX> Beep; EX>end; EX>