下面的程序可以搞定：

function GetParentWindowNameAt ( X, Y : integer ) : string; 
var P : TPoint; W : TWinControl; 
begin 
P.X := X; 
P.Y := Y; 
W := FindVCLWindow( P ); 
if( nil <> W ) then 
Result := W.Name; 
Result := ''; 
end;