读Edit中的内容应该没问题吧:);str:=edit1.caption
传给网页中的input(假设依次为name,passwd,secret,submit,reset)
var
doc:IHTMLDocument2;
all:IHTMLElementCollection;
itemlevariant;
begin
doc:=WebBrowser1.Document as IHTMLDocument2;
all:=doc.all;
item:=all.tags('INPUT');
item:=item.item(0);
item.innerText:=str
//填入html
......//依次填
item:=item.item(4);
item.click;//点击submit
item:=item.item(0);
end