delphi webbrowser 模拟表单提交

procedure TForm9.PINGLUN(Title,Content,YD:string);
var
    frw:IHTMLDocument2;
    TT1,TT2,TT3:IHTMLInputElement;
    LIst:IHTMLElementCollection;
    ListTexty:IHTMLOptionButtonElement;
    K:Integer;
begin
   frw:=wb1.document as IHTMLDocument2;
   TT1:=(frw.all.item('title',0) as IHTMLInputElement);
   TT1.value:=Title;
   wb1.OleObject.document.all.item('content',0).value:=Content;
   LIst:=frw.all.item('point',EmptyParam) as IHTMLElementCollection;
    for k:=0 to LIst.length-1 do
      begin
         ListTexty:=LIst.item(k,EmptyParam) as IHTMLOptionButtonElement;
           if ListTexty.value='5' then
             ListTexty.checked:=True;
        end;
   //TT2:=(frw.all.item('content',0) as IHTMLInputElement);
  // TT2.value:=HP;
   TT3:=(frw.all.item('pros',0) as IHTMLInputElement);
   TT3.value:=YD;
  // wb1.OleObject.document.getElementByID('point',1).checked;
  wb1.OleObject.document.getElementByID('saveComment').click;
  end;