Авторизация ВКонтакте на сокетах

Добрый день.
Подскажите, пожалуйста, где ошибка в этом коде (необходима авторизация на сайте "ВКонтакте"). Использую Builder C++ 6

Вот код:

Code:

void __fastcall TForm1::Button6Click(TObject *Sender)
{
ClientSocket1->Port =80;
ClientSocket1->Host = "vkontakte.ru";
ClientSocket1->Open();
ClientSocket1->Socket->SendText ("POST / HTTP/1.1\r\nHost: vkontakte.ru\r\nUser-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; en)\r\nReferer: http://vkontakte.ru\r\nConnection: keep-alive\r\nContent-Type: application/x-www-form-urlencoded\r\nContent-Length: 124\r\nact=login&q=1&al_frame=1&expire=&captcha_sid=&captcha_key=&from_host=vkontakte.ru&email=mail%40mail.ru&pass=mypass\r\nAccept: */*\r\n\r\n");
ClientSocket1->Close();
}
 
void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
      TCustomWinSocket *Socket)
{
Memo1->Lines->Add(ClientSocket1->Socket->ReceiveText());        
}