procedure ShowHTML(const HTML: string; AWebBrowser: TWebBrowser); var HtmlText: OLEVariant; begin HtmlText := 'about:'+HTML; AWebBrowser.Navigate2(HtmlText); end;