[Помогите!] Бот для Тюряги

[Fanky3]

Цитата: procedure TForm1.Button1Click(Sender: TObject); var LoginInfo: TStringList; Response: TMemoryStream; begin LoginInfo := TStringList.Create; Response := TMemoryStream.Create(); LoginInfo.Add('key='+Edit2.Text); LoginInfo.Add('user='+Edit1.Text); LoginInfo.Add('sig=d7761c77eb0f592674ab3763c7931f6 b'); LoginInfo.Add('method=office'); LoginInfo.Add('getidea=5'); {---собираем все сиги сразу---} IdHTTP1.Post('http://109.234.156.250/prison/universal.php',LoginInfo,Response); XMLDocument1.LoadFromStream(Response); XMLDocument1.Active:=true; Label2.Caption := XMLDocument1.DocumentElement.ChildNodes['money'].Text; Timer1.Enabled := true; end;

Проблема в следующем, как на эту кнопку повесить еще
запрос:

Цитата: IdHTTP1.Post('http://109.234.156.250/prison/universal.php?getinfo',LoginInfo,Response); Label3.Caption := XMLDocument1.DocumentElement.ChildNodes['rating'].Text;

Дабы узнать сколько в тюряге например у меня авторитета.
Когда вешаю подобную функцию.
(пробывал уже все, даже выводил в отдельный "response2")
То выдает при нажатии на кнопку сбора сигарок выдает
"EDOMParseError бла бла бла*

Помогите плиз!

[OP3]

Для начала, как минимум

procedure TForm1.Button1Click(Sender: TObject);
var
LoginInfo: TStringList;
Response: string;
begin
LoginInfo := TStringList.Create;
LoginInfo.Add('key='+Edit2.Text);
LoginInfo.Add('user='+Edit1.Text);
LoginInfo.Add('sig=d7761c77eb0f592674ab3763c7931f6b');
LoginInfo.Add('method=office');
LoginInfo.Add('getidea=5'); {---собираем все сиги сразу---}
Response := IdHTTP1.Post('http://109.234.156.250/prison/universal.php?getinfo',LoginInfo);
XMLDocument1.LoadFromXML(Response);
XMLDocument1.Active:=true;
Label2.Caption := XMLDocument1.DocumentElement.ChildNodes['money'].NodeValue;
Timer1.Enabled := true;
XMLDocument1.Active:=false;
end;

А для продолжения букварь+матчасть
Вся эта абракадабра годится только мегабайты на HDD распугивать =\