Benutzername und Passwörter in den webbrowser eintragen

[strife]

Hi ich bins schon wieder!!
Hab mich nochmals belesen und alles usprobiert, aber geht nicht...

bin jetzt bei dem quelltext hengen geblieben

->keine fehler meldung aber auch
->kein Eintrag

als beispiel hab ich jetzt evergore genommen

Delphi-Quellcode:

function Tform1.FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
var
  i, j: Integer;
  FormItem: Variant;
begin
  Result := False;
  //no form on document
  if WebBrowser1.OleObject.Document.all.tags('FORM').Length = 0 then
  begin
    Exit;
  end;
  //count forms on document 
  for I := 0 to WebBrowser1.OleObject.Document.forms.Length - 1 do
  begin 
    FormItem := WebBrowser1.OleObject.Document.forms.Item(I);
    for j := 0 to FormItem.Length - 1 do 
    begin 
      try 
        //when the fieldname is found, try to fill out 
        if FormItem.Item(j).Name = FieldName then 
        begin 
          FormItem.Item(j).Value := Value; 
          Result := True; 
        end; 
      except 
        Exit; 
      end; 
    end; 
  end; 
end; 

procedure TForm1.Navi2Page(URL : String); 
  begin 
    Webbrowser1.Navigate(URL);
    Wait; 
  end; 

procedure TForm1.Wait; 
begin 
  while Webbrowser1.ReadyState <> READYSTATE_COMPLETE do
  begin
    Application.ProcessMessages;
    Sleep(0); 
  end;
  while Webbrowser1.Busy = True do 
  begin 
    Application.ProcessMessages; 
    Sleep(0); 
  end; 
end; 


procedure TForm1.FormCreate(Sender: TObject);
begin
webbrowser1.Navigate('http://www.evergore.org/login.php?world=2');
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 //Navi2Page('http://http://www.evergore.org/login.php?world=2');
  FillForm(Webbrowser1, 'mein name', Edit1.Text);
  FillForm(Webbrowser1, 'das passwort', Edit2.Text);
  Webbrowser1.OleObject.Document.forms.item(0).submit;
end;

wichtig wär noch ich hab keine ahnung wie die Inputelemnet heißen...
bin also ratlos
wär super wenn ihr mir helfen könntet!!