一、直接写文本串

　　WebBrowser1.Navigate('about:blank');

　　WebBrowser1.OleObject.Document.Writeln('ok');

　二、直接写Html串

　　procedure WriteHtmlToWB(wb: TWebBrowser; HTMLCode: string);
    //向WebBrowser中写入Html字符串

　　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;