Как сделать для WebBrowser обработчик onClick

[demiancz]

Здравствуйте. Есть форма, а на форме есть Webbrowser.
Как сделать что бы после нажатия на Webbrowser в любом месте, форма закрывалась?
Этот пример нашел в сети, но так и не понял как реализовать закрытие формы после клика.

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := MyMessages;
end;
 
procedure TForm1.MyMessages(var Msg: TMsg; var Handled: Boolean);
 var
   X, Y: Integer;
   document, E: OleVariant;
 begin
   Handled := False;
   if (WebBrowser1 = nil) or (Msg.message <> WM_LBUTTONDOWN) then
     Exit;
 
   Handled := IsDialogMessage(WebBrowser1.Handle, Msg);
 
   if (Handled) then
   begin
 
     // Здесь расположить код обработки клика...
     case (Msg.message) of
       WM_LBUTTONDOWN:
         begin
           X := LOWORD(Msg.lParam);
           Y := HIWORD(Msg.lParam);
           document := WebBrowser1.document;
           E := document.elementFromPoint(X, Y);
           ShowMessage('You clicked on:' + E.outerHTML);
         end;
 
     end;
   end;
 end;