Бот тюряга

[Andry lomakin1]

Проблемка
Покажу красным ошибки спать хочу не пойму
procedure TForm1.Button1Click(Sender: TObject);
var
p,i:Tstrings;
name,h_full,h_now,battle_time:string;

begin
id[Ссылки могут видеть только зарегистрированные и активированные пользователи] 'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.13)';
id[Ссылки могут видеть только зарегистрированные и активированные пользователи]'application/x-[Ссылки могут видеть только зарегистрированные и активированные пользователи]';

p:=Tstringlist.Create;
i:=Tstringlist.Create;

try
i.Add('method=getBoss');
i.Add('key=*************');
i.Add('user=*************');
i.Text:=Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]', i);

name:=parse ('<name>', '</name>', i.text); //Имя босса
h_full:=parse ('<h_full>', '</h_full>', i.text); //Здоровье 100%
h_now:=parse ('<h_now>', '</h_now>', i.text); //Здоровья осталось
battle_time:=parse ('<battle_time>', '</battle_time>', i.text); //Времени осталось



ProgressBar1.Position:=strtoint(h_now);
ProgressBar1.Max:=strtoint(h_full);

Label1.Caption:=battle_time;

finally
Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]
end;
end;