procedure THIWebBrowser._work_doFromText;
var p:PStream;
begin
   Init;
   if PKOLWebBrowser(Control).Document = nil then
     PKOLWebBrowser(Control).Navigate('about:blank');
   p := NewMemoryStream;
   p.WriteStr(ToString(_Data));
   p.Position := 0;
   (PKOLWebBrowser(Control).Document as IPersistStreamInit).Load(TStreamAdapter.Create(p));
   p.Free;
end;