var
i:integer;
doc: OleVariant;
begin
doc:=WebBrowser1.document;
For i:=0 To doc.all.length-1 do
begin
if (doc.all.item(i).tagName = 'INPUT')and
(doc.all.item(i).type='text')and
(doc.all.item(i).name='UseEdit') //UsedEdit为输入框名
then
doc.all.item(i).value:='abcdefg';
end;
end;