用过webbrowser的朋友进来看一下，webbrowser是不是很耗系统资源啊～～

程序是用webbrowser控件调用别人的网页往手机里发送短信，有的时候号码有上万个，循环调用发送，此时cpu占用率99％（后来发现10个号码不到cpu占用率也很高）。郁闷，不知道哪里出了问题。
相关代码Procedure TFwebForm.WebBrowser1DocumentComplete(Sender: TObject;
  Const pDisp: IDispatch; Var URL: OleVariant);
Var
  s,tmp,url: String;
  d:Variant;Begin
  Try
      WebBrowser1.Silent:=true;
    If WebBrowser1.ReadyState = READYSTATE_COMPLETE Then
    Begin//如果一个号码发送完毕，则发送下一个号码
      inc(i);
      if i<MobilList.count then
      begin
        url :="http://www.xxx.net/send.jsp?mobile="+MobilList.Strings[i] ;
        webbrowser1.Navigate(url);
      end;
    end;
  except
  end;
end;Procedure TFwebForm.Button1Click(Sender: TObject);
var
 url:String;
begin
 i:=0;
 url :="http://www.xxx.net/send.jsp?mobile="+MobilList.Strings[i] ;
 webbrowser1.Navigate(url);end;