Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Получить заголовок элемента управления под мышкой

01.01.2007
function GetCaptionAtPoint(CrPos: TPoint): string;
 
var
   textlength
: Integer;
   
Text: PChar;
   
Handle: HWND;
 
begin
   
Result := 'Empty';
   
Handle := WindowFromPoint(CrPos);
   
if Handle = 0 then Exit;
   textlength
:= SendMessage(Handle, WM_GETTEXTLENGTH, 0, 0);
   
if textlength <> 0 then
   
begin
     getmem
(Text, textlength + 1);
     
SendMessage(Handle, WM_GETTEXT, textlength + 1, Integer(Text));
     
Result := Text;
     freemem
(Text);
   
end;
 
end;

Взято с сайта: https://www.swissdelphicenter.ch