Копирование хэша из исходного кода

[eFail]

Доброго времени суток. Будучи не опытным человеком который чуть-чуть знает delphi, я рискну задать вопрос.
Ситуация такая.Строится программа, которая будет рассылать уведомления пользователям.Авторизироваться и все такое программа уже умеет, но тут возникла такая проблема, когда я снифером просматривал сайт, то обнаружил что при отправки сообщения передается ещё специальный параметр "xgmcajjf" который в себе содержит 32 символа.Его легко можно найти в исходном коде, но проблема в том что он все время разный(при каждой новой авторизации)

var dle_login_hash = 'f1cb4c361791ad5dbf4c075f00d2b3e2';

И у меня каждый раз появляется проблема с его копированием.По идее все у меня правельно, программа копирует 32 символа, но почему-то значение у dle_login_hash всегда пустое...

Код:
var hash, s:string;
s:=idhttp1.Post('http://сайт.ру/index.php', Data);
hash:=copy(s,pos('var dle_login_hash',s), 32);
listbox1.items.Add(hash);

P.S Data это данные для авторизации которые передаются на сервер.Насколько я знаю хэш появляется только у авторизированых пользователей.

[ZaRDaK]

То, что возвращает Post удобнее (мне) хранить в TstringList,
потом по нему перебиратся циклом и делать так

if pos('var dle_login_hash = ''',TS[i]) <> 0 then hash := copy(TS[i],pos('var dle_login_hash = ''',TS[i]), 32);

[eFail]

TS[i] i - это какая-та переменная , которую мне надо задать?

[ZaRDaK]

отписал же - TStringList.
http://www.delphibasics.ru/TStringList.php

var Ts: TStringList;
...
Ts := TStringList.Create;
...
Ts.Text := idhttp1.Post('http://сайт.ру/index.php', Data);
...
Ts.Destroy;

i - переменная типа integer, обычно юзается в цикле for