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=');
token:=copy(otvet, pos('access_token":"', otvet), pos('","expires_in', otvet)-3);
delete(token, 1, 15);
id:=copy(otvet, pos('user_id":', otvet), pos('}', otvet)-3);
delete(id, 1, 9);
Memo1.Lines.Add(''+token+':'+id+'');
Memo1.Lines.SaveToFile('token.txt');