可以使用About协议显示简单的HTML字符串

about: 协议可以浏览HTML字符串

procedure TForm1.LoadHTMLString(sHTML: String);

var

 Flags, TargetFrameName, PostData, Headers: OleVariant;

begin

 WebBrowser1.Navigate('about:' + sHTML, Flags, TargetFrameName, PostData, Headers)

end;