Delphi авторизация вКонтакте

В общем задумался я на досуге, что, было бы неплохо научиться постить с помощью делфей в одну из известнейших социальных сетей вКонтакте, задумался, да и решил попробовать свои силы ))) Самое интересное, что такой простой авторизации на мой взгляд еще не было, но не будем о лирике…
Кидаем на форму два эдита, и кнопку, которой дадим громкое название Login. Получим уродца как на скрине:

Далее в uses дописываем IdHTTP
Теперь в обработчике событий нажатия кнопки Login пишем следующее:

procedure TForm1.btnLoginClick(Sender: TObject);
var http: TIdHTTP;
Data: TStringList;
Coocies: string;
begin
HTTP:= TIdHTTP.Create(Self);
HTTP.HandleRedirects:= True;
HTTP.Request.UserAgent:= 'Mozilla/5.0 (Windows NT 5.1) AppleWebKit/535.1 (KHTML, like Gecko) Chrome/14.0.835.186 Safari/535.1';
try
HTTP.Get('http://login.vk.com/?act=login&q=1&al_frame=1&from_host=vkontakte.ru&email='+Edit1.Text+'&pass='+Edit2.Text);
except
end;
Cookies:= SetCookies(HTTP.Response.RawHeaders.Text);
if Pos('remix', Cookies)<>0 then ShowMessage('Авторизовались');
HTTP.Free;
end;

SetCookies — самописная функция выгребающая кукисы, т.к. кукиманагеру инди я не доверяю, в одном проекте уж больно он мне подосрал))))

function SetCookies(Raw: string): string;
var PosCook: Integer;
Cook: string;
begin
Cook:= '';
Cook:= 'Cookie: ';
PosCook:= Pos('Set-Cookie:', Raw);
while PosCook<>0 do
begin
Delete(Raw, 1, PosCook-1);
Cook:= Cook + Copy(Raw, 12, Pos(';', Raw)-11);
Delete(Raw, 1, Pos(';', Raw));
PosCook:= Pos('Set-Cookie:', Raw);
end;
Result:= Cook+'remixlang=0;';
end;

А теперь внимание, как вы видите, у меня не стоит проверка на появление капчи при логине, скажем так, это есть домашнее задание!)))