Как узнать CAPTION компонента над которым находиться курсор

procedure TfmMain.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
var i : integer;
    r : TRect;
    pt: TPoint;
    b : Boolean;
begin
  GetCursorPos(pt);
  pt := ScreenToClient(pt);
 
  b := False;
  for i:=0 to fmMain.ControlCount-1 do
  begin
    r := Controls[i].BoundsRect;
    if (pt.x >= r.Left) and (pt.x <= r.Right) and
       (pt.y >= r.Top)  and (pt.y <= r.Bottom) then
    begin
      // нашли контрол с такими координатами
      b:=True;
      // через Controls[i].Name он нам доступен
      upr.base_table.First;
      for schet:=1 to upr.base_table.RecordCount do
        if upr.base_tablepanel_name.AsString=Controls[i].Name then
          Controls[i].Name:=upr.base_tableinfo.AsString;
      break;
    end;
  end;
end;

var P:TPoint;
    wnd:HWND;
    sBuffer:string;
begin
    GetCursorPos(P); // координаты крысы в экране
    wnd := WindowFromPoint(P); // хендл окна в этой точке
    if IsWindow(wnd) then begin // это есть окно
        SetLength(sBuffer, 8192); // инициализируем буфер
        FillChar(sBuffer[1], 8192, 0); // очищаем буфер
        GetWindowText(wnd, PChar(sBuffer), 8191); // узнаем заголовок окна
        {куда Вам это?} := Copy(sBuffer, 1, Pos(#0,sBuffer)-1); // отрезаем от буфера лишнее
    end;
end;