procedure TForm1.Button1Click(Sender: TObject);
var
  param:TStringList;
  p:string;
begin
  param:=TStringList.Create;
   try
    param.Add('act=login');
    param.Add('success_url=');
    param.Add('fail_url=');
    param.Add('try_to_login=1');
    param.Add('to=');
    param.Add('vk=');
    param.Add('email=адрес');
    param.Add('pass=пароль');
    param.Add('expire=');
    p:=IdHTTP1.Post('http://vkontakte.ru/login.php',param);
  finally
    param.Free;
  end;
end;

 if Pos('<title>В Контакте | Вход</title>',p) <> 0 then
    ShowMessage('Авторизация провалилась')
  else
    ShowMessage('Авторизация прошла успешно');