logen:=Edit1.Text;
pass:=edit2.Text;
otvet:=send('GET', 'https://oauth.vk.com/token?grant_type=password&client_id=2274003&client_secret=hHbZxrka2uZ6jB1inYsH&username='+logen+'&password='+pass+'&captcha_key=&captcha_sid=');
vsego_simvol:=pos('access_token":"', otvet);
skoko_udalit:=vsego_simvol+15;
token:=copy(otvet,skoko_udalit,85);
number_simbol1:=pos('user_id":"', otvet);
kol_simbol1:=number_simbol1+10;
number_simbol2:=pos('}', otvet);
number_simbol3:= number_simbol2-1;
lol:=kol_simbol1-number_simbol3;
id:=copy(otvet,kol_simbol1,lol);
Edit3.Text:=IntToStr(number_simbol1);
Memo1.Lines.Add(''+token+':'+id+'');
Memo1.Lines.SaveToFile('token.txt');