截获了IE的DoBeforeNavigate2,怎样修改其HTML代码 ( 积分: 50 )

proceduredo
BeforeNavigate2(const pDisp:IDispatch;var URL:OleVariant;
var Flags:OleVariant;var TargetFrameName:OleVariant;var PostData:OleVariant;
var Headers:OleVariant;var Cancel:WordBool);
var
begin

if (URL='www.sex.com') then

begin

Cancel:=True;
URL:='http://www.baidu.com';
(pDisp as IWebbrowser2).Navigate2(URL,Flags,TargetFrameName,PostData,Headers);
end;

end;


怎样截获其html代码，在其代码后面在附加一段代码“<h1>提示：此网站不健康!</h1>”

就是
HTML源码 := HTML源码 + '< h1 >提示：此网站不健康!< /h1 >';