Поиск ссылок в html-документе

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <ComObj.hpp>
#include <mshtml.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
 
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        Variant oIE = CreateOleObject("InternetExplorer.Application");
        oIE.OlePropertySet("Visible", true);
        oIE.OleFunction("Navigate", "http://vk.com");
        while (oIE.OlePropertyGet("ReadyState") != 4) Sleep(50);
 
        Variant oDocument = oIE.OlePropertyGet("document");
        Variant oLinks = oDocument.OlePropertyGet("links");
        int iTotalLinks = oLinks.OlePropertyGet("Length");
        for ( int i = 0; i < iTotalLinks; i++ )
        {
                Variant item = oLinks.OleFunction("item", i);
                String s = item.OlePropertyGet("href");
                Memo1->Lines->Add(s);
        }
        oIE.OleFunction("Quit");
}
//---------------------------------------------------------------------------