procedure TForm1.Button1Click(Sender: TObject);
 var params, resp : TStringList;
begin
  params := TStringList.Create;
  resp := TStringList.Create;
  try
   params.Add('email=' + edit1.text);
   params.Add('pass=' + edit2.text);
   resp.text := IdHTTP1.Post('http://vkontakte.ru/login.php',params);
   if Pos('http://vkontakte.ru/profile.php',resp.Text)>0 then
    ShowMessage('Авторизовались!')
   else
    ShowMessage('Авторизация не удалась!');
  finally
   params.free;
   resp.free;
  end;
end;