procedure TForm1.WB_LoadHTML(WebBrowser:TWebBrowser;HTMLCode:String);
var

sl:TStringList;

ms:TMemoryStream;

begin

WebBrowser.Navigate('about:blank');

if Assigned(WebBrowser.Document) then begin

sl := TStringList.Create;

ms := TMemoryStream.Create;

try

sl.Text := HTMLCode;

sl.SaveToStream(ms);

ms.Seek(0,0);

(WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));

finally

ms.Free;

sl.Free;

end;

end;