procedure TForm1.Button1Click(Sender: TObject); var p,i:Tstrings; name,h_full,h_now,battle_time:string; begin idhttp1.Request.UserAgent:= 'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.13)'; idhttp1.Request.ContentType:='application/x-www-form-urlencoded'; p:=Tstringlist.Create; i:=Tstringlist.Create; try i.Add('method=getBoss'); i.Add('key=*************'); i.Add('user=*************'); i.Text:=IdHTTP1.Post('http://109.234.156.251/prison/universal.php?getBoss', 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 IdHTTP1.Free end; end;