Formular ohnt (Html)Forms ausfüllen

[1ceman]

ich hab das jetzt mal so gemacht:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var Field:IHTMLElement;
  Formname,FieldName:string;
  Document: IHTMLDocument2;
  Form: IHTMLFormElement;
  Forms: IHTMLElementCollection;
  inputField: IHTMLInputElement;
begin
FormName:='formular';
FieldName:= 'login';
Document:= WebBrowser1.Document as IHTMLDocument2;
Forms:= Document.Forms as IHTMLElementCollection;
Form:= Forms.Item(FormName,'') as IHTMLFormElement;
Field:= Form.Item(FieldName,'') as IHTMLElement;
if Field.TagName = 'INPUT' then
    begin
      inputField := field as IHTMLInputElement;
      inputField.value := 'test';
    end;
end;

nur in der Zeile 14 (Field:= Form.Item(FieldName,'') as IHTMLElement kommt immer nen error, ich weiss aber leider net warum.
bin halt auch noch nen anfänger auf dem Gebiet.