Webbrowser und login, post und popup

[Arnulf]

Hallo
Ich bin mir nicht sicher wo ich ansetzen soll.
Ich möchte eigentlich mit meinem embedded webbrowser nur auf einer Steite surfen.
http://eurotort.org/
Wenn ich jetzt das Login rechts ausfülle, dann öffnet sich ein IE fenster und verlangt ein weiteres Login.
Mit IE selbst öffnet sich ein neues Fenster und man wird eingeloggt.

Mit dem MiniWebbrowser von Tom wird zwar ein weiterer Tab geöffnet, aber das Login erfolgt erst nach erneuter eingabe der Login Daten.

Hier was ich aus dem Forum bisher zusammengestöpselt habe:

Delphi-Quellcode:

// ausfüllen der Formulardaten
procedure WB_FillPwdForm(WB: TWebbrowser; UsernameField, User, PasswortField, Password: string);
var
  IDoc3: IHTMLDocument3;
  Inputs: IHTMLElementCollection;
  UID, UPWD: IHTMLElement;
begin
  if Assigned(WB.Document) and
    (Succeeded(WB.Document.QueryInterface(IHTMLDocument3, IDoc3))) then
  begin
    Inputs := IDoc3.getElementsByName(UsernameField);
    if Assigned(Inputs) then
    begin
      UID := Inputs.item(0, '') as IHTMLElement;
      if Assigned(UID) then
        (UID as IHTMLInputElement).value := User;
    end;
    Inputs := IDoc3.getElementsByName(PasswortField);
    if Assigned(Inputs) then
    begin
      UPWD := Inputs.item(0, '') as IHTMLElement;
      if Assigned(UPWD) then
        (UPWD as IHTMLInputElement).value := Password;
    end;
  end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
 //WebBrowser1.Navigate('http://datenbank.ectil.org/query/search.aspx');
 WebBrowser1.Navigate('http://datenbank.ectil.org/query/login.aspx');
 //WebBrowser1.Navigate('http://eurotort.org');

 //WB_FillPwdForm(Webbrowser1, 'TextBox1','username','TextBox2','password')
end;

// initales auto login
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
    { if startup then
     begin
          startup := false;
          WB_FillPwdForm(Webbrowser1, 'TextBox1','Test','TextBox2','Test');
          WebBrowser1.OleObject.document.forms.item(0).Elements.item('Button1', 0).click;
     end;   }
end;
// Neues Fenster...
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
  NewWindow: Tform1;
begin
    // To create a new instance of the webbrowser application:
    NewWindow := TForm1.Create(Self);
    NewWindow.Webbrowser1.RegisterAsBrowser := True;
    ppDisp := NewWindow.WebBrowser1.DefaultDispatch;
    NewWindow.Show;
    Cancel := True;
    //self.Close;
end;

Ich möchte hauptsächlich, dass das Login akzeptiert wird.
Auto login - ist nur nebensächlich und könnte später interessant werden.

lg
Arnulf
Edit:
Ich hab übrigens auch versucht die logindaten in der adresszeile mit zu schicken
Das funktioniert im IE wunderbar nur mit Twebbrowser nicht - da komm ich immer wieder auf die login seite