Procedure WBLoadHTML(WebBrowser: TWebBrowser; HTMLCode: String) ;

 

var

 

   sl: TStringList;

 

   ms: TMemoryStream;

 

begin

 

   WebBrowser.Navigate('about:blank') ;

 

   while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do

 

    Application.ProcessMessages;

 

 

 

   if Assigned&#40;WebBrowser.Document&#41; then

 

   begin

 

     sl &#58;= TStringList.Create;

 

     try

 

       ms &#58;= TMemoryStream.Create;

 

       try

 

         sl.Text &#58;= HTMLCode;

 

         sl.SaveToStream&#40;ms&#41; ;

 

         ms.Seek&#40;0, 0&#41; ;

 

         &#40;WebBrowser.Document as IPersistStreamInit&#41;.Load&#40;TStreamAdapter.Create&#40;ms&#41;&#41; ;

 

       finally

 

         ms.Free;

 

       end;

 

     finally

 

       sl.Free;

 

     end;

 

   end;

 

End;

procedure TForm1.FormCreate&#40;Sender&#58; TObject&#41; ;

 

var

 

  sHTML &#58; string;

 

begin

 

  sHTML &#58;= '<a href="http&#58;//www.cmnsoft.com">GOTO</a>' +

 

           '<b>Central Management Networks</b>';

 

  WBLoadHTML&#40;WebBrowser1, sHTML&#41; ;

 

end;