[mico]

Нет, конечно, так пробовал, но...

Вот, привожу код:

Код:

procedure TForm1.WebBrowserDocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
 var DocA: IHTMLElementCollection; Element: IHTMLElement;
 CurWebrowser: IWebBrowser; TopWebBrowser: IWebBrowser;
 tselect:String; i:integer;
begin
 CurWebrowser:= pDisp as IWebBrowser;
 TopWebBrowser:= (Sender as TWebBrowser).DefaultInterface;
 if CurWebrowser = TopWebBrowser then
 begin
  tselect:= '<script>function myfuncs(){alert("Bla bla bla");}</script><select onchange=javascript:myfuncs()><option>1</option><option>2</option></select>';

  DocA:=(WebBrowser.Document as IHTMLDocument2).all;
  for i:=0 to DocA.length - 1 do
  begin
   Element:=DocA.item(i,0) as IHTMLElement;
   if (Element.tagName = 'BODY') then
   begin
    Element.insertAdjacentHTML('afterBegin', tselect);
   end;
  end;

 end;
end;

Ну, и, ругается:
Ошибка: Значением свойства "myfuncs" или является NULL, или оно не определено, или не является объектом Function