Ecrir sur Webbrowser sans efacer ?

Salut

avec cett Code je peut envoyer un Text oubien un html Code an Webbrowser
mais le Problem la Fuction fait une nouvelle Page vierge

Mais je ne voudrais pas effacer qu ce que dans le Webbrowser:
procedure LoadHTMLToWebbrowser(AWebBrowser: TWebBrowser; AHTMLCode: TStrings);
var
  myDocument:OleVariant;
begin
    if AWebBrowser.Document =nilthen AWebBrowser.Navigate('about:blank');
    myDocument:=AWebBrowser.Document;
  myDocument.Clear; // !!!
  myDocument.Write(AHTMLCode.Text);
  myDocument.Close;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//LoadHTMLToWebBrowser(Webbrowser1,Memo1.Lines);
LoadHTMLToWebBrowser(Webbrowser1,'halloooooo');
end;