delphi 如何将memo中的网页源码,代码转成网页方式显示

网页的代码已经在memo中了,如何将memo里面的代码再转成网页的方式显示呢?显示在webbrowser里。
求大牛指点,拜谢···

var
str:string;
icnt:Integer;
begin
mmo1.Lines.Clear;
mmo1.Lines.Add('<html>');
mmo1.Lines.Add('<head>');
mmo1.Lines.Add('<title>我的第一个 HTML 页面</title>');
mmo1.Lines.Add('</head>');
mmo1.Lines.Add('<body>');
mmo1.Lines.Add('<p>body 元素的内容会显示在浏览器中。</p>');
mmo1.Lines.Add('<p>title 元素的内容会显示在浏览器的标题栏中。</p>');
mmo1.Lines.Add('</body>');
mmo1.Lines.Add('</html>');
str:='';
for icnt:=0 to mmo1.Lines.Count-1 do
begin
str:=str+mmo1.Lines[icnt];
end;
wb1.Navigate('about:'+str);
end;

memo里面只限于html,不能有其他的,比如jsp或js。追问

但我写入的html中需要调用js 不可以的框架 函数都不能实现了,有什么办法解决吗?

追答

我比较好奇的是,你为什么要这么做,有什么特殊的业务要求么....

温馨提示:答案为网友推荐,仅供参考