取网页源代码出错(0分)

var
Rul,str:string;
begin
...
webbrowser1.Navigate(Rul);
str:=(webbrowser1.Document as IHtmlDocument2).body.outerHTML ;
end
我想取Rul的源代码，但运行到str:=(webbrowser1.Document as IHtmlDocument2).body.outerHTML ;时出错。
大概是说存储地址出错。