1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure clear() ;
var
   sl: TStringList;
   ms: TMemoryStream;
begin
   if assigned(htmlcache) then freeandnil(htmlcache);
   htmlcache := TStringList.Create();

   WebBrowser.Navigate('about:blank') ;
   while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do Application.ProcessMessages;

   if not Assigned(WebBrowser.Document) then raise Exception.Create('no html document');
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

procedure print(text: string);
var
   ms: TMemoryStream;
begin
   if not assigned(htmlcache) then begin
       clear();
   end;

   if not Assigned(WebBrowser.Document) then begin
      clear();
      if not Assigned(WebBrowser.Document) then raise Exception.Create('no html document');
   end;

   htmlcache.add(text);   

   ms := TMemoryStream.Create;
   try
     htmlcache.SaveToStream(ms) ;
     ms.Seek(0, 0) ;
     (WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms)) ;
   finally
     ms.Free;
   end;

   Application.ProcessMessages;
   WebBrowser.OleObject.Document.ParentWindow.ScrollTo(0,MaxInt);
   Application.ProcessMessages;
end;