WebBrowser

Question

帮忙看看这个程序，有几个错误，请问HTMLDocument也是控件吗，帮忙解释一下，谢谢
procedure TFrmIE.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  Doc:IHTMLDocument2; //说没定义IHTMLDocument2，ihtmlinputelemen，怎么定义？
  input:OleVariant;
  userinputelement,pwdinputelement:ihtmlinputelement;
begin  webbrowser1.Navigate('oa.gs.dq.cnpc.com.cn');
  doc:=webbrowser1.document as ihtmldocument2;
  userinputelement:=(doc.all.item('p_login',0) as ihtmlinputelement);
  userinputelement.value:=Frmlogin.edit1.text;
  pwdinputelement:=(doc.all.item('p_password',0) as ihtmlinputelement);
  pwdinputelement.value:=Frmlogin.edit2.text;
  input:=doc.all.item('submit',0);
  input.click;end;