frames in TWebBrowser

[the-kecks]

hi,
ich hab ein Problem mit dem TWebBrowser. Ich hab auch schon bei delphi praxis gesucht und nen thread gefunden, aber der hat mir nicht weitergeholfen.
hier mein code:

Delphi-Quellcode:

    Webbrowser1.Navigate('http://www.gamesload.de/de/mygamesload/kaufen.php?intIdGame=31044&partner=bbyd');
    while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do application.processmessages;
    for i2 := 0 to WebBrowser1.OleObject.Document.frames.length-1 do
    begin
      for j := 0 to WebBrowser1.OleObject.Document.frames.item(i2).document.forms.Length-1 do  //Zugriff verweigert
      begin
        for j2:=0 to WebBrowser1.OleObject.Document.frames.item(i2).Document.forms.item(j).Elements.length-1 do
        begin
          if WebBrowser1.OleObject.Document.frames.item(i2).document.forms.Item(j).Elements.item(j2).Name = 'loginControl_txt_email' then
          begin
            WebBrowser1.OleObject.Document.frames.item(i2).document.forms.Item(j).Elements.item(j2).Value := Memo2.lines[i];
            showmessage('emok');
          end;
          if WebBrowser1.OleObject.Document.frames.item(i2).document.forms.Item(j).Elements.item(j2).Name = 'loginControl_txt_pwd' then
          begin
            WebBrowser1.OleObject.Document.frames.item(i2).document.forms.Item(j).Elements.item(j2).Value := Memo3.lines[i];
            showmessage('pwok');
          end;
          if (WebBrowser1.OleObject.Document.frames.item(i2).document.forms.Item(j).Elements.item(j2).Type = 'submit') and (WebBrowser1.OleObject.document.frames.Item(i2).document.forms.Item(j).Elements.item(j2).Id= 'loginControl_bt_continue') then
          begin
            WebBrowser1.OleObject.Document.frames.item(i2).document.forms.Item(j).Elements.item(j2).click;
            showmessage('btok');
          end;
        end;
      end;
    end;

hierbei krieg ich den fehler 'zugriff verweigert'. weiß einer woran das liegt?

mfg