var
Form : IHTMLFormElement;
D : IHTMLDocument2;
begin
with WebBrowser1 do
begin
D := Document as IHTMLDocument2;
Form := D.Forms.Item('f1',0) as IHTMLFormElement;
(Form.item('wd',0) as IHTMLElement).setAttribute('value',Edit1.Text,0);
Form.submit;
end;
end;