#include <boost/regex.hpp>
//-------------------------------------------
// Регулярные выражения
boost::regex pvremixCHK("remixchk\\=(.+?)\\;", boost::regex::perl | boost::regex::icase);
boost::regex pvremixSID("remixsid\\=(.+?)\\;", boost::regex::perl | boost::regex::icase);
//-------------------------------------------
// функция поиска Sid
const std::string __fastcall htmlParservremixSID(const std::string cmd)
{
    boost::smatch result;
    if(boost::regex_search(cmd, result, pvremixSID))
         return std::string(result[1]);
}
//-------------------------------------------
// функция поиска Chk
const std::string __fastcall htmlParservremixCHK(const std::string cmd)
{
    boost::smatch result;
    if(boost::regex_search(cmd, result, pvremixCHK))
         return std::string(result[1]);
}
//-------------------------------------------

const bool __fastcall AuthVK(TIdCookieManager *IdCookieManager, TIdHTTP *IdHTTP, const AnsiString login, const AnsiString pass)
{
   AnsiString response, remixchk, remixsid;
   // Настраиваем IdHTTP для работы с куками vk.com
   IdHTTP->CookieManager    = IdCookieManager;
   IdHTTP->AllowCookies     = false;
   // Настраиваем автоматический переход на перенаправляемую страницу.
   IdHTTP->HandleRedirects  = false;
    // Делаем запрос к vk.com, передаем логин и пароль.
    try
    {
        response = IdHTTP->Get( L"http://vk.com/login.php?email="+ login +"&pass="+ pass );
    // Обрабатываем возникшие исключения
    }catch(EIdHTTPProtocolException &e)
    {
        switch(e.ErrorCode)
        {
            case 200: return false; break;
            case 303: return false; break;
            case 404: return false; break;
            default:break;
        }
    }catch(EIdSocketError &e)
    {
        if ( e.LastError == 11001 )
            MessageDlg ("Не удалось подключится к удалённому серверу vk.com", mtInformation, TMsgDlgButtons() <<mbOK, 0);
    }catch(EIdException &e)
    {
        MessageDlg ("Ошибка:\n\""+e.Message+"\"", mtError, TMsgDlgButtons() <<mbOK, 0);
    }
    // Ловим ответ "HTTP 302"
        if ( IdHTTP->ResponseCode == 302 )
        {
            // Читаем возращенные заголовки (куки)
            response = IdHTTP->Response->RawHeaders->Text;
            // Находим hash remixchk
            remixchk = htmlParservremixCHK(response.c_str()).c_str();
            // Находим hash remixsid
            remixsid = htmlParservremixSID(response.c_str()).c_str();
            // Передаем куки
            IdHTTP->Request->CustomHeaders->Text = "Cookie: remixchk="+ remixchk +"; remixsid="+ remixsid;
            IdHTTP->CookieManager->AddCookies(IdCookieManager);
            // Переходим на нашу страницуж vk.com/idxxxxxxxx
            response = IdHTTP->Get("http://vk.com"+ IdHTTP->Response->Location);
        }
    // Делаем проверку удачной авторизации.
    if ( ( response.Pos("Моя Страница") > 0 ) || ( response.Pos("Моя Сторінка") > 0) )
    return true;
    else return false;
}

AnsiString message_err =
"Не удается войти.\nПожалуйста, проверьте правильность написания логина и пароля.\n- Возможно, нажата клавиша CAPS-lock?\n- Может быть у Вас включена неправильная раскладка? (русская или английская)\n- Попробуйте набрать свой пароль в текстовом редакторе и скопировать в графу «Пароль»";
//...
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
    if ( Edit1->Text != "" && Edit2->Text != "" )
    {
        if ( AuthVK( IdCookieManager1, IdHTTP1, Edit1->Text, Edit2->Text ) )
        {
            MessageDlg ("Авторизация прошла успешно.", mtInformation, TMsgDlgButtons() <<mbOK, 0);
        }else MessageDlg (message_err, mtInformation, TMsgDlgButtons() <<mbOK, 0);
    }else MessageDlg ("Заполните пустые поля.", mtInformation, TMsgDlgButtons() <<mbOK, 0);
}
//---------------------------------------------------------------------------