WebBrowser1 Popup Menu

[fox]

İyi Günler
Webbrowser'in üstünde popup menüye şu koddla açabiliyorum

Kod: Tümünü seç

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; 
var Handled: Boolean);
begin
  Case Msg.message Of
  WM_RBUTTONDOWN,
  WM_RBUTTONDBLCLK :
    begin
      if PtInRect(WebBrowser1.BoundsRect, ScreenToClient(Msg.pt)) then
      begin
      Handled := true;
      PopupWeb.Popup(Msg.pt.x, Msg.pt.y);
      end;
    end;
  end; // Caseend;
end;

Ama bu kod formun her yerinde aktif sadece webbrowser'ın üzerinde değil.
Şöyle bir kod ekleyincede
if Msg.hwnd=WebBrowser1.HWND then
EoleExeption belirtilmemiş hata mesajı alıyorum

Bunu Nasıl çözebilirim.