Welche Möglichkeiten JavaScript im TWebBrowser ausführen=?

[Blumi]

Hi zusammen

Ich versuche jetzt seit einigen Tagen JavaScript in einem TWebBrowser auszuführen.
Leider gibt es Internetseiten mit JavaScript Fehler, die kann man ja einfach mit Silent unterdrücken.
Jedoch ist dann das Problem nicht gelöst. Ich habe es bereits mit

WebBrowser1.OleObject.Document.parentWindow.machedas();

Delphi-Quellcode:

  Elem := GetElementById(WebBrowser1.Document, 'machedas()') as IHTMLElement;
  if Assigned(Elem) then begin
    Elem.click;

Delphi-Quellcode:

function ExecuteScript(doc: IHTMLDocument2; script: string; language: string): Boolean; 
var 
  win: IHTMLWindow2; 
  Olelanguage: Olevariant; 
begin 
  if doc <> nil then 
  begin 
    try 
      win := doc.parentWindow; 
      if win <> nil then 
      begin 
        try 
          Olelanguage := language; 
          win.ExecScript(script, Olelanguage); 
        finally 
          win := nil; 
        end; 
      end; 
    finally 
      doc := nil; 
    end; 
  end; 
end;

versucht.
Aber es kommt jedesmal eine Fehlermeldung wenn Silent False ist mit "undefined ist Null oder kein Objekt"
Und wenn ich Silent True setze kommt eine Meldung von Delphi mit "OLE-Fehler 80020101" ?
Das JavaScript wird aber bei beiden Male nicht ausgeführt!

Was gibt es sonst noch für Ausweichsmöglichkeiten? Oder mache ich etwas falsch, habe ich was vergessen einzubinden?

Würde mich über alle eure weisen Antworten freuen.

Mfg. Blumi


Edit: Ich wollte noch dazu anmerken, dass wenn ich den Internet Explorer oder Firefox direkt verwende, ich das Java Script mit Klick ausführen kann. Und mit Delphi funktioniert es wie beschrieben eben noch nicht? Lg

[edit=Sharky]Delphi-Tag korrigiert Mfg, Sharky[/edit]