var PageProfile:string;   
begin   
    IdHTTP1.AllowCookies:=true;   
    IdHTTP1.HandleRedirects:=true;   
    try   
     PageProfile:=IdHTTP1.Get('http://vkontakte.ru/login.php?email=ваш_логин&pass=пароль');   
    except   
    end;   
    if Pos('logout', PageProfile)<>0 then   
     Memo1.Lines.Add('Авторизация удалась')   
    else   
     Memo1.Lines.Add('Авторизация не удалась');   
end;

var data:tstringlist;
      PageProfile:string;
      error:boolean;
begin
  IdHTTP1.AllowCookies:=true;
  IdHTTP1.HandleRedirects:=false;
  data:=tstringlist.create;
  data.Add('email=ваш_логин'); // логин для авторизации
  data.Add('pass=пароль');  // пароль для авторизации
  data.Add('expire=');
  data.Add('vk=');
  error:=false;
  try
   PageProfile:=IdHTTP1.Post('http://login.vk.com/?act=login', data);
  except
   error:=true;
  end;
   
  if not(error) then
   begin
    data.Clear;
    data.Add('s='+Copy(PageProfile, Pos('value', PageProfile)+7, 56));
    data.Add('op=slogin');
    data.Add('redirect=1');
    data.Add('expire=0');
    data.Add('to=');
    IdHTTP1.HandleRedirects:=true;
    try
     PageProfile:=IdHTTP1.Post('http://vkontakte.ru/login.php', data);
    except
    end;
    Memo1.Lines.Add('Авторизация удалась');
   end
  else
   Memo1.Lines.Add('Авторизация не удалась');
   
  Data.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if ClientSocket1.Active = true then
ClientSocket1.Active := false;
ClientSocket1.Active := true;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket);
begin
statusbar1.Panels[0].Text := 'Connect Success';
ClientSocket1.Socket.SendText('POST /login.php HTTP/1.1'#13#10+
'Accept: */*'#13#10+
'Referer: http://vkontakte.ru/login.php?u=1'#13#10+
'Accept-Language: ru'#13#10+
'Content-Type: application/x-www-form-urlencoded'#13#10+
'User-Agent: Mozilla/4.0'#13#10+
'Host: vkontakte.ru'#13#10+
'Content-Length: '+inttostr(length('success_url=&fail_url=&try_to_login=1&email='+edit1.Text+'&pass='+edit2.Text))+#13#10+
'Connection: Keep-Alive'#13#10+
'Cache-Control: no-cache'#13#10#13#10+
'success_url=&fail_url=&try_to_login=1&email='+edit1.text+'&pass='+edit2.Text);
end;

procedure TForm1.ClientSocket1Disconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
statusbar1.Panels[0].Tex t:= 'Disconnected';
end;

procedure TForm1.ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
statusbar1.Panels[0].Text := 'Error #'+ inttostr(ErrorCode);
end;

procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
var
ans : string;
begin
ans := ClientSocket1.Socket.ReceiveText;
if pos('HTTP/1.1 302 Found', ans) <>0 then
statusbar1.Panels[0].Text := 'Success login';
if pos('<div id="error" />',ans) <> 0 then
statusbar1.Panels[0].Text:= 'Bad login';
end;

function avtorizing(Login:string;Pass:string):boolean;
var
data: TstringList; //переменная для отправки данных
s: String;//Переменная куда будим грузить страницу
HTTP: Tidhttp;
Cookie: TIDcookieManager;
procedure indexs;
begin
try
http.Get('http://vkontakte.ru/'); //идем на главную страницу, впринципе можно парсить предыдущие запросы и получить ссылку на страницу запроса, но по моему проще получить перенаправление;)
except on e : EIDHttpProtocolException do
Begin
if e.ErrorCode = 302 then //собственно код ошибки перенаправления
begin
S:=http.Get(Http.Response.Location); //грузим страницу профиля в s
end;
End;
end;
end;

begin
result:=false;
HTTP.HandleRedirects:=false;//Отключаем автоматическое перенаправление
data:=tstringlist.create; //Инициализация переменной с данными
data.Add('act=login'); //менять не нужно
data.add('q=1');
data.add('al_frame=1');
data.Add('expire=');
data.add('captcha_sid=');
data.add('captcha_key=');
data.add('from_host=vkontakte.ru');
data.Add('email='+login); // логин для авторизации
data.Add('pass='+Pass); //Пароль авторизации
try //так как мы отключили редирект, то ловим перенаправление сами
HTTP.Post('http://login.vk.com/', data);//отправка данных
except on e : EIDHttpProtocolException do
Begin
if e.ErrorCode = 302 then //код ошибки, если равен 302 то значит куда то послали:)
begin
if pos('s=1',Http.Response.Location)<>0 then //Проверка на правильность ввода логина и пароля если всё правильно то в конце адресса перенаправления будет "s=1"
begin
HTTP.Request.CustomHeaders.Text:= 'Cookie: ' + Cookie.cookieCollection. items[0].CookieName+'='+Cookie.cookieCollection. items[0].Value; //добавляем куку(remixchk)
http.Get(Http.Response.Location); //Собственно запрос на перенаправляемую страницу
HTTP.Request.CustomHeaders.Text:= 'Cookie: ' + Cookie.cookieCollection. items[0].CookieName+'='+Cookie.cookieCollection. items[0].Value+'; '+Cookie.cookieCollection. items[4].CookieName+'='+Cookie.cookieCollection. items[4].Value;// добавляем в запрос куки(remixchk и remixsid);
indexs;//Внутренняя процедура, вынес из-за Try-except))больно уж много там "end" <img src="http://s5.ucoz.net/sm/2/smile.gif" border="0" align="absmiddle" alt="smile"> грузит в переменную s страницу профиля
if pos('editProfile.php',s)<>0 then //ищем на странице "editProfile.php"- я взял это как признак того что мы зашли на свою страницу как владелец
result:=true; //ну и пишем в результат true)))
end
else
exit; //выход из процедуры(можно поставить что-то другое) если не найдена "s=1"
end;
end;
end;
end;

avtorizing(Login,pass)//Login-Логин вконтакте, пароль -пароль вконтакте