Взять значения из сайта

Variant oIE = CreateOleObject("InternetExplorer.Application");

app = CreateOleObject("Excel.Application");
books = app.OlePropertyGet("Workbooks");
books.Exec(Procedure("Open")<<"d:\\work\\finder\\files\\22222.xls");
book = books.OlePropertyGet("item",1);
sheet= book.OlePropertyGet("WorkSheets",1);
app.OlePropertySet("Visible", 1);

#include <vcl.h>
#pragma hdrstop
#include <ComObj.hpp>
 
#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); // закоментировать, если не нужно отображать IE
        oIE.OleFunction("Navigate", "http://xtreme-jumps.eu/demos.php");
        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");
}
//---------------------------------------------------------------------------