Функция FindVCLWindow( const Pos: TPoint ): TWinControl;
Функция возвращает оконное средство управления для местоположения, определенного параметром Pos. Если для данного местоположения нет оконных средств управления, то функция возвращает nil.

Функция GetCaptureControl: TControl;
Функция возвращает средство управления класса TControl, которое получает в текущий момент все сообщения от мыши.

Функция SetCaptureControl( Control: TControl );
Функция передает управление мышью средству управления, определенному в параметре Control. Данное средство управления будет получать все сообщения от мыши, пока управление мышью не будет передано другому средству управления с помощью функции SetCaptureControl или функцией ReleaseCapture Windows API.
Взято с http://atrussk.ru/delphi/