如何让TEmbeddedWB响应鼠标事件？（TwebBrowser也行啊）帮忙帮忙 (100分)

Tembedded没有onmouse事件
我在app.onmessage事件中这样写一点反应都没有啊：
我的想法是把鼠标移动到网页上就显示所在控件的html源代码。请高手出招
if (msg.message=WM_MOUSEMOVE) and (msg.hwnd=self.handle) and (currentWeb<>nil) then
begin
c:=ControlAtPos(msg.pt,true);
if c<>nil then
begin
showMessage(c.GetNamePath );
if c is TEmbeddedWB then
begin
wb:=TEmbeddedWB(c);
showMessage('asdfsad');
end;
end;
Handled:=false;
end