Немогу пропарсить значение!

[DKENT]

Здраствуйте!

Немогу пропарсить значение определеного элемента!

Page:=IdHTTP1.Get('http://vkontakte.ru/appХХХХХХХ');
c:=Pars('auth_key=',Page,'');
Edit3.Text:=c;
end;

function TForm1.Pars(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;

В компоненте edit3.Text нечего невыводиться!!!
Что в данном коде не так?

[MadReason]

c:=Pars('auth_key=',Page,'');

третий параметр пустая строка?

if (T_ = '') or (ForS = '') or (_T = '') then
Exit;

если третий параметр пустая строка, то выходим из функции?

[DKENT]

Нет!!!
auth_key находиться на 220 строке!!!
И мне его нужно спарсить
HTML такой

var iframe_url = "http://syte.ru/ok/?api_url=http://api.vkontakte.ru/api.php&api_id=1978064&api_settings =287&viewer_id=131456786&viewer_typ e=2&sid=8fb732a7360c5da9d252018f209 19e18877a2a6efd1b7722f4e09e7fa2a0e0 &secret=f5b248822d&user_id=13145678 6&group_id=0&is_app_user=1&auth_key=d833777ca67h48ac6hg67c9fdfc3a58&language=0&parent_language=0

Вот это значение данного auth_key мне нужно отобразить в программе!!!
Знаю что значение находиться в 220 строке!

[kangreon]

uses
  StrUtils;

var
  s: string;
  i: integer;
begin
i := PosEx('auth_key=',s)+9;
edit1.text := Copy(s,i,PosEx('&',s,i)-i);