Помогите разобраться.
Есть WebBrowser.

function TForm1.onDocClick:OleVariant;
begin
caption:='Click';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
document: IHTMLDocument2;
begin
document:= wbattle.Document as IHTMLDocument2;
document.onclick:=onDocClick; //Здесь вылетает ошибка
end;


Смысл в том, что необходимо обрабатывать в WebBrowser'e клик мышью.