#pas
var pos:TPoint;
      h:HWND;
begin
   GetCursorPos(pos);
   h := WindowFromPoint(pos);
   dtInteger(_Data,ChildWindowFromPoint( h, COORD_TRANSLATE(h, pos));
end;