向WebBrowser中写入Html字符串

uses ActiveX;//注意引用ActiveX单元
 procedure TForm1.WriteHtmlToWB(wb: TWebBrowser;HTMLCode: string);
var
  ss: TStrings;
  ms: TMemoryStream;
begin
  ss := TStringList.Create;
  ms := TMemoryStream.Create;
  try
    ss.Text := HTMLCode;
    ss.SaveToStream(ms);
    ms.position:=0;
    wb.Navigate('about:blank');
    (wb.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
  finally
    ms.Free;
    ss.Free;
  end;
end;