Получить hash (idhttp post)

[Lime]

Доброго времени суток
Немогу разобратся как получить хэш )
Парсер молчит )

Для размера немного подхрамсал ...

Подскажите как его достать)

ПС пишу свой агент для вконтакте (nospam nofake only for me).
//Сорри за оформление - спешу ))

[Lime]

Разобрался сам )

function AddFriend(id:integer;Msg:tstrings):boolean;
var param,response:tstringlist;i:integer;
begin
param := TStringList.Create;
response := TStringList.Create;
param.Add('act=request_form');//ок
param.Add('fid='+inttostr(id));//ок
response.Text := form1.HTTP1.Post('http://vkontakte.ru/friends_ajax.php',param);
почти ');
response.Text := Stringreplace(response.Text,'\','',[rfreplaceall,rfignorecase]);
response.Text := Stringreplace(response.Text,'"',#13,[rfreplaceall,rfignorecase]);
for i := 0 to response.Count - 1 do
begin
 if ((trim(response[i])='hash') and (trim(response[i+1])='value=')) then
  begin
  param.Clear;
  param.Add('act=accept_friend');//ок
  param.Add('fid='+inttostr(id));//ок
  param.Add('hash='+trim(response[i+2]));
  param.Add('cats=');//ок
  param.Add('verbose=1');//ок
  param.Add('selectedItems=');//ок
  param.Add('selectedItems_custom=');//ок
  param.Add('message='+msg.Text);//ок
  end;
end;
response.Text := form1.HTTP1.Post('http://vkontakte.ru/friends_ajax.php',param);
if pos('получил уведомление',response.Text)>0 then result := true else result := false;
end;

Может кому пригодится ...
Функцию делал под свою программу ) переделать не составт труда