//获取网页源代码
var
s: string;
begin
s := WebBrowser1.OleObject.document.body.innerHTML;
//body内的所有代码
s := WebBrowser1.OleObject.document.body.outerHTML; //body内的所有代码,
包含body标签
s := WebBrowser1.OleObject.document.documentElement.innerHTML;
//html内的所有代码
end;