Display strings directly in WebBrowser

// Jiangxue 2001.06 http://asnowcn.at.china.com// string displayed directly in the WebBrowser procedure ShowInWebBrowser (WebB: TWebBrowser; Str: String); var v: Variant; HTMLDocument: IHTMLDocument2; begin HTMLDocument: = Webb.Document as htmldocument2; if (assigned (htmldocument)) The beginning ([0, 0], varVariant); v [0]: = Str; // That is to be shown htmlDocument.write (PsafeArray) Tvardata (v) .vaRray); htmldocument.close; end; end;