Редирект и параметры в ссылке

[Fiesko]

Сама ссылка редиректа выглядит так:

https://oauth.vk.com/blank.html#access_token="токен"&expires_in=0&user_id="Айди"

Каким образом можно ее отловить?

[Fiesko]

Вот так вот правильно будет, при том, что ссылка

https://oauth.vk.com/blank.html

используется только один раз?

procedure TForm1.IdHTTP1Redirect(Sender: TObject; var dest: string;
  var NumRedirect: Integer; var Handled: Boolean; var VMethod: string);
begin
if Pos('https://oauth.vk.com/blank.html', idHTTP1.Response.Location) <>0 then
ShowMessage(idHTTP1.Response.Location);
end;

[XE5]

Складывается чёткое ощущение, что половина информации из задачи было проглочено. Попробуйте задать вопрос ещё раз. Только не тупо повторить, а объяснить.

[Fiesko]

Сообщение от XE5

Складывается чёткое ощущение, что половина информации из задачи было проглочено. Попробуйте задать вопрос ещё раз. Только не тупо повторить, а объяснить.

Нужно получить access_token для использования API ВКонтакте.
После того как прошел процедуру авторизации и разрешил доступ приложению:

происходит редирект, в ссылке которого находятся нужные мне параметры, которые нужно вытащить:

Сама ссылка редиректа выглядит так:

https://oauth.vk.com/blank.html#access_token="токен"&expires_in=0&user_id="Айди"

В сообщении выше, я попробовал это реализовать, но не уверен, что это правильно.
Код немного обновлен:

procedure getParams(url: string);
begin
  access_token := url;
  Delete(access_token, 1, pos('#access_token=', access_token) + length('#access_token=') - 1);
  Delete(access_token, pos('&', access_token), length(access_token));
  user_id := url + '"';
  Delete(user_id, 1, pos('&user_id=', user_id) + length('&user_id=') - 1);
  Delete(user_id, pos('"', user_id), length(user_id));
end;

procedure TForm1.IdHTTP1Redirect(Sender: TObject; var dest: string;
  var NumRedirect: Integer; var Handled: Boolean; var VMethod: string);
begin
  if pos('https://oauth.vk.com/blank.html', IdHTTP1.Response.Location) <> 0 then
  begin
    getParams(IdHTTP1.Response.Location);
    ShowMessage('access_token: ' + access_token + ' | ' + 'user_id: ' + user_id);
  end;
end;

[XE5]

но не уверен, что это правильно

function ParseURL(T_, ForS, _T: string): string; 
var a, b: integer;
begin
Result := '';
if (T_ = '') or (ForS = '') or (_T = '') then Exit;
a := Pos(T_, ForS);
if a = 0 then Exit else a := a + Length(T_);
ForS := Copy(ForS, a, Length(ForS) - a + 1);
b := Pos(_T, ForS);
if b > 0 then Result := Copy(ForS, 1, b - 1);
end;

Применение

s := ParseURL('access_token="', IdHTTP1.Response.Location, '"');

Пойдёт?