var
  Data: TStringList;
  HTTP : TidHTTP;
begin
  Data := TStringList.Create;
  HTTP := TIdHTTP.Create(nil);
  
  HTTP.AllowCookies := True; // Врубаем каки
  HTTP.HandleRedirects := True; // Врубаем автоматическую переадресацию
  
 { Данные для запроса } 
  Data.Add('act=login');
  Data.Add(email=mail@mail.ru');
  Data.Add('pass=password');
 
// Шлем запрос
  HTTP.Post('http://login.vk.com/', data);

// Читим паять
Data.Free;
HTTP.Free;

end;

var
  Data: TStringList;
  HTTP : TidHTTP;
begin
  Data := TStringList.Create;
  HTTP := TIdHTTP.Create(nil);
  
  HTTP.AllowCookies := True; // Врубаем каки
  HTTP.HandleRedirects := True; // Врубаем автоматическую переадресацию
  

// Шлем запрос
  Data.Text := HTTP.Get('http://vkontakte.ru/profile.php');

// Читим паять
Data.Free;
HTTP.Free;

end;