Бот для Тюряги

[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'); {---собираем все сиги сразу---}
Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',LoginInfo,Response);
XMLDocument1.LoadFromStream(Response);
XMLDocument1.Active:=true;
Label2.Caption := XMLDocument1.DocumentElement.ChildNodes['money'].Text;
Timer1.Enabled := true;
end;

Проблема в следующем, как на эту кнопку повесить еще
запрос:
Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',LoginInfo,Response);
Label3.Caption := XMLDocument1.DocumentElement.ChildNodes['rating'].Text;
Дабы узнать сколько в тюряге например у меня авторитета.
Когда вешаю подобную функцию.
(пробывал уже все, даже выводил в отдельный "response2")
То выдает при нажатии на кнопку сбора сигарок выдает
"EDOMParseError бла бла бла*

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

[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=d7761c77eb0f592674ab3763c7931f6 b');
LoginInfo.Add('method=office');
LoginInfo.Add('getidea=5'); {---собираем все сиги сразу---}
Response := Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',LoginInfo);
XMLDocument1.LoadFromXML(Response);
XMLDocument1.Active:=true;
Label2.Caption := XMLDocument1.DocumentElement.ChildNodes['money'].NodeValue;
Timer1.Enabled := true;
XMLDocument1.Active:=false;
end;

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