Problem med udfyldning af info på hjemmeside

Jeg forstår ikke, hvorfor mit program ikke udfylder tekstboksene og trykker på knappen?


function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
var
  i, j: Integer;
  FormItem: Variant;
begin
  Result := False;
  //no form on document
  if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
  begin
    Exit;
  end;
  //count forms on document
  for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
  begin
    FormItem := WebBrowser.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;

function SubmitForm(WebBrowser: TWebBrowser; SubmitButton: string): Boolean;
var
  i, j: Integer;
  FormItem: Variant;
begin
  Result := False;

  if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
    Exit;

  for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
  begin
    FormItem := WebBrowser.OleObject.Document.forms.Item(I);
    for j := 0 to FormItem.Length - 1 do
    begin
      try
        if FormItem.Item(j).Value = SubmitButton then
        begin
          FormItem.Item(j).click;
          Result := True;
        end;
      except
        Exit;
      end;
    end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.left := (screen.width div 2) - (Form1.width div 2);
  Webbrowser1.Navigate('http://www.studienet.dk');
  end;

procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
begin
  Fillform(Webbrowser1, 'username', 'TestBrugernavn');
  Fillform(Webbrowser1, 'password', 'TestPassword');
end;