WebBrowser直接写入内容

var  StrStream: TStringStream;  SetNoteStr: string;begin  SetNoteStr :='<iframe src="http://m.weather.com.cn/m/pn12/weather.htm " width="245" height="110" marginwidth="0" marginheight="0" hspace="0" vspace="0" frameborder="0" scrolling="no"></iframe>';  StrStream := TStringStream.Create(SetNoteStr);  WebBrowser1.Navigate('about:blank');  try    StrStream.Position := 0;    (WebBrowser1.Document as IPersistStreamInit).Load(TStreamadapter.Create(StrStream));  finally    StrStream.Free;  end;end;