这段代码怎么在delphi(bho)中编译,有例程最好 - 编程论坛

程序代码：

procedure 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;
       try
          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;
          end;
      finally
        sl.Free;
     end;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
WB_LoadHTML(webBrowser1,'<html><body bgcolor="#0099FF">SwissdelphiCenter</html>');
end