Проблема с WebBrowserom

[nibufep]

htmlcode:=tstringlist.Create;
....
WebBrowser1.Navigate('about:blank');
WebBrowser1.OleObject.Document.Write(htmlcode.Text);
htmlcode.Free;

Первый раз загружается нормально. Когда выполняешь второй раз, не чего не происходит.

[newerow1989]

Попробовать так:

var sl:tStringList;
    ms:tMemoryStream;
    TextHTML:string;
    OLEHtmlText:OLEVariant;
begin
   OLEHtmlText:='about:';
   WebBrowser.Navigate2(OLEHtmlText);
   TextHTML:='Привет всем программистам!';
   If Assigned(WebBrowser.Document) then
   begin
      sl:=tStringList.Create;
      ms:=tMemoryStream.Create;
      sl.Text:=TextHTML;
      sl.SaveToStream(ms);
      ms.Seek(0,0);
      (WebBrowser.Document as IPersistStreamInit).Load(tStreamAdapter.Create(ms));
      FreeAndNil(ms);
      FreeAndNil(sl);
   end;
end;

У меня так работает!