vTags := WebBrowser1.OleObject.Document.getElementsByTagName('Li');
         n1:=vTags.Length;

         if n1>0 then
         begin

           for i1:=0 to n1-1 do
           begin
           vTags1 := vTags.item(i1).getElementsByTagName('H3');
           n2:=vTags1.Length;

             if n2>0 then
             begin

               for i2:=0 to n2-1 do
               begin
               sMemo2.Lines.Add(vTags1.item(i2).InnerHTML);
               end;

             end;

           end;

         end;

<A href="http://www.google.ru/url?url=http://www.elle.ru/tests/&rct=j&frm=1&q=&esrc=s&sa=U&ved=0CBMQFjAAahUKEwj4n4380ZnHAhWI2SwKHdhEB2A&usg=AFQjCNFKGc7G2o3Ta0OKGyFYhC8EjSKUHg" target=_blank><B>?????</B> ??????: ?????? ??????????????? <B>?????</B> ?????????, ??? <B>...</B></A>