connection closed gracefully

procedure TForm1.tmr1Timer(Sender: TObject);
var
params, responseres                : tstringlist;
begin
 idhtp1.Request.Host:='';
 idhtp1.Request.Connection:='keep-alive';
 idhtp1.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.31 (KHTML, like Gecko) Chrome/26.0.1410.64 Safari/537.31';
 idhtp1.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
 idhtp1.Request.AcceptLanguage:='ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4';
 idhtp1.Request.Referer:='';
 idhtp1.Request.ContentType:='application/x-www-form-urlencoded';
 
 if (edit2.Text<>'') and (edit6.Text<>'') then  //Ïðîâåðêà îò "äóðî÷êà"
 begin
 params:=TStringList.Create;
 responseres:=TStringList.Create;
 Internet_Proverka;
 try
  params.Add('action=login');
  params.Add('email='+edit2.Text);
  params.Add('password='+edit6.Text);
  params.Add('remember=on');
  responseres.Text:=idhtp1.Post('http://www..ru/',params);
  mmo1.Text:=responseres.Text;
  responseres.SaveToFile('index.htm');
 
  if Pos('logout',responseres.Text)>0 then
  lbl9.Caption:='Àâòîðèçóåìñÿ' Else
  begin
   lbl9.Caption:='Îøèáêà Àâòîðèçàöèè';
  end;
  Name('index.htm'); //Óçíàåì êîë-âî ó÷àñòíèêîâ è Èìÿ ãðóïïû
 except
  on e:EIDHttpProtocolException do
   Begin
      //ShowMessage('Error');
   end;
  on e:EIdException do
   begin
      //ShowMessage('Error 2');
   end;
  on e:EIdConnClosedGracefully do
   begin
   tmr1.Enabled:=True;
   tmr2.Enabled:=True;
   end;
 end;
 params.free;
 responseres.free;
 
 if lbl9.Caption='Îñòàíîâëåíî' then
 begin
  ShowMessage('Ïðîãðàììà îñòàíîâëåííà ïî òðåáîâàíèþ ïîëüçîâàòåëÿ');
 end
  else
 begin
  lbl9.Caption:='Çàâåðøåíî';
 end;
 
 end
 else
 begin
   if edit2.Text='' then ShowMessage('Ëîãèí íå óêàçàí ;(');
   if edit6.Text='' then ShowMessage('Ïàðîëü íå óêàçàí ;(');
 end;
end;

procedure TForm1.tmr2Timer(Sender: TObject);
var
    temp, Health, Police, List : Boolean;
    params, responseres : tstringlist;
    healthneed, i, n, tempinteger, k :integer;
    typeENEMY, IdEnemy :string;
begin
i:=0; //Óñòàíàâëèâàåì ñ÷åò÷èê, äëÿ öèêëà äðàê, íà íà÷àëî "While i <= n do" n êîë-âî äðàê
 
if edt1.Text='' then
 begin
  temp:=False;
  if (edt1.Text='') then ShowMessage('Ââåäèòå êîë-âî äðàê');
 end;
 
if (chk3.Checked=False) and (cbb1.ItemIndex=-1) then
 begin
  temp:=False;
  if (cbb1.ItemIndex=-1) then ShowMessage('Âûáåðèòå êîãî ãðàáèòü');
  if (chk3.Checked=False) then ShowMessage('Âûáåðèòå ñïèñîê æåðòâ (ôàéë "people.txt")');
 end;
 
if CheckBox1.Checked=True then
 begin
 If edt2.Text='' then
  begin
   temp:=False;
   ShowMessage('Âûáåðèòå %HP');
  end;
 end;
 
if chk1.Checked=True then //Äàâàòü âçÿòêó
Police:=True;
 
if chk2.Checked=True then //Full HP
Health:=True;
 
if chk3.Checked=True then //Full HP
List:=True;
 
if temp<>False then      //Çàäàíî êîë-âî äðàê, óêàçàíû ÕÏ (åñëè ëå÷èìñÿ)
 begin
  n:=StrToInt(edt1.Text); //Êîë-âî äðàê
  While i <= n do
   begin
    Serf; //Ýìóëèðóåì äåéñòâèÿ ïîëüçîâàòåëÿ
 
    If (StrToInt(Label8.Caption)>0) or (StrToInt(Label8.Caption)=0) then  //Ïðîâåðÿåì Ðîçûñê
     begin
      if Police=True then //Âûêóïàòüñÿ ó ïîëèöèè
       begin
        Invisible;
       end
      else
       begin
        lbl24.Caption:='Ñáðàñûâàåì ðîçûñê';
        Rest; //Îòäûõàåì
        RandomUrl;
        While (StrToInt(Label8.Caption)>0) or (StrToInt(Label8.Caption)=0) do //Ïîêà óðîâåíü ðîçûñêà âûñîê, îòäûõàåì
         begin
          Rest; //Âðåìÿ îòäûõà
          RandomUrl;
         end;
       end;
     end;
 
    if Health=True  then //Åñëè ñòîèò ãàëêà "Äðàòüñÿ ñ maxHP"
     begin
      if HP<maxHP then
      begin
      if (CheckBox1.Checked=True) then //Åñëè ñòîèò ãàëêà "Ëå÷èòüñÿ"
       begin
        healthneed:=Round(StrToInt(edt2.Text)*maxHP*0.01); //Ïîðîã ëå÷åíèÿ, Ïðèì: 70%*100*0.01=70 ÕÏ
        //ShowMessage('Íóæíî õï ' + IntToStr(healthneed));
        if HP<healthneed then //Åñëè õï ñåé÷àñ ìåíüøå ïîðîãà, òî èäåì ëå÷èìñÿ
         begin
           responseres:=TStringList.Create;                         //Èñïîëüçóåì ìèêñòóðó 100%
           responseres.Text:=idhtp1.Get('http://www.xxx.ru/player/json/use/1597565721/');
           responseres.Free;
         end
        else  //Åñëè âûøå ïîðîãà, òî æäåì ïîêà ÕÏ ñàìè âîññòàíîâÿòñÿ
         begin
          Regeneration;
         end;
       end
      else //Åñëè íå ñòîèò ãàëêà "Ëå÷èòüñÿ", òî æäåì ïîêà ÕÏ ñàìî âîññòàíîâèòñÿ
       begin
        Regeneration;
       end;
      end;
     end;
 
    case cbb1.ItemIndex of
    0: typeENEMY:='equal';
    1: typeENEMY:='weak';
    2: typeENEMY:='strong';
    3: typeENEMY:='enemy';
    4: typeENEMY:='victim';
    end;
 
    responseres:=TStringList.Create;
    try
    responseres.Text:=idhtp1.Get('http://www.xxx.ru/alley/');
    if FileExists('index2.htm') then DeleteFile('index2.htm');
    responseres.SaveToFile('index2.htm');
    Train('index2.htm');
    Application.ProcessMessages;
    except
    on e:EIDHttpProtocolException do
     Begin
      Continue;
     end;
    on e:EIdException do
     begin
      Continue;
      end;
    on e:EIdConnClosedGracefully do
     begin
      tmr1.Enabled:=True;
      tmr2.Enabled:=True;
      Break;
     end;
    end;
    responseres.free;
 
    if Fight=False then
     begin
      lbl24.Caption:='Æäåì íà÷àëà áîÿ';
      Rest; //Âðåìÿ îòäûõà
      While Fight=False do //Ïîêà óðîâåíü ðîçûñêà âûñîê, îòäûõàåì
       begin
        RefreshUrl;
        Rest; //Âðåìÿ îòäûõà
       end;
     end;
 
    if Fight=True then
     begin
      If List=True then
       begin
        If not(FileExists('people.txt')) then
         begin
          //ShowMessage('Ñïèñîê êîí÷èëñÿ');
          Break;
         end;
        tempinteger:=-1; //Êàêîé íîìåð áåðåì èç òåêñòîâèêà
        lst1.Items.LoadFromFile('people.txt');
 
          while Fight=True do
          begin
           tempinteger:=tempinteger+1;
           IdEnemy:=lst1.Items[tempinteger];
           idhtp1.Get(IdEnemy);
           Delete(IdEnemy,1,28);
           Delete(IdEnemy,Length(IdEnemy),1);
 
           params:=TStringList.Create;      //Àòàêóþ
           responseres:=TStringList.Create;
           try
           params.Add('action=attack');
           params.Add('player=' + IdEnemy);
           params.Add('werewolf=0');
           params.Add('useitems=0');
           params.Add('__referrer=/alley/search/type/');
           params.Add('return_url=/alley/search/type/');
           responseres.Text:=idhtp1.Post('http://www.xxx.ru/alley/',params);
           DeleteFile('index.htm');
           responseres.SaveToFile('index.htm');
           except
           on e:EIDHttpProtocolException do
            Begin
             Continue;
            end;
           on e:EIdException do
            begin
             Continue;
            end;
           on e:EIdConnClosedGracefully do
            begin
             tmr1.Enabled:=True;
             tmr2.Enabled:=True;
             Break;
            end;
           end;
           responseres.free;
           params.free;
 
           responseres:=TStringList.Create;                         //Ïðîâåðÿåì,äðàëèñü ëè ìû
           try
           responseres.Text:=idhtp1.Get('http://www.xxx.ru/alley/');
           if FileExists('index2.htm') then DeleteFile('index2.htm');
           responseres.SaveToFile('index2.htm');
           Train('index2.htm');
           Application.ProcessMessages;
           except
           on e:EIDHttpProtocolException do
            Begin
             Continue;
            end;
           on e:EIdException do
            begin
             Continue;
            end;
           on e:EIdConnClosedGracefully do
            begin
             tmr1.Enabled:=True;
             tmr2.Enabled:=True;
             Break;
            end;
           end;
           responseres.free;
 
          end;
 
          lst1.Selected[tempinteger]:=True;//âûáèðàåì ñòðîêó
          lst1.DeleteSelected;//óäàëÿåì å¸
          DeleteFile('people.txt');
          lst1.Items.SaveToFile('people.txt');
 
       end
      else
       begin
       k:=0; //Ñ÷åò÷èê äðàêè
       LeveleQually:=False; //Ñ÷åò÷èê âðàãà ðàâíîãî óðîâíÿ
       while k < 1 do
       begin
        params:=TStringList.Create;      //Èùåì ñîïåðíèêà
        responseres:=TStringList.Create;
        try
        params.Add('werewolf=0');
        params.Add('nowerewolf=1');
        params.Add('type=' + typeENEMY);
        params.Add('__ajax=1');
        params.Add('return_url=/alley/');
        responseres.Text:=idhtp1.Post('http://www.xxx.ru/alley/search/type/',params);
        DeleteFile('index.htm');
        responseres.SaveToFile('index.htm');
        IDsearch; //Îïðåäåëÿåì ID æåðòâû êîãî àòàêóåì
        except
        on e:EIDHttpProtocolException do
         Begin
          Continue;
         end;
        on e:EIdException do
         begin
          Continue;
         end;
        on e:EIdConnClosedGracefully do
         begin
          tmr1.Enabled:=True;
          tmr2.Enabled:=True;
          Break;
         end;
        end;
        responseres.free;
        params.free;
 
        if (chk5.Checked=True) and (LeveleQually=False) then Continue; // Åñëè ñòîèò ãàëî÷êà "Ðàâíîãî óðîâíÿ", à óðîâíè ðàçíûå, òîãäà èùåì ñîïåðíèêà ñíîâà.
 
        params:=TStringList.Create;      //Àòàêóþ
        responseres:=TStringList.Create;
        try
        params.Add('action=attack');
        params.Add('player=' + ID);
        params.Add('werewolf=0');
        params.Add('useitems=0');
        params.Add('__referrer=/alley/search/type/');
        params.Add('return_url=/alley/search/type/');
        responseres.Text:=idhtp1.Post('http://www.xxx.ru/alley/',params);
        DeleteFile('index.htm');
        responseres.SaveToFile('index.htm');
        except
           on e:EIDHttpProtocolException do
            Begin
             Continue;
            end;
           on e:EIdException do
            begin
             Continue;
            end;
           on e:EIdConnClosedGracefully do
            begin
             tmr1.Enabled:=True;
             tmr2.Enabled:=True;
             Break;
            end;
        end;
        responseres.free;
        params.free;
        Inc(k);
       end;
       end;
      if chk4.Checked=True then  //Åñëè âûáðàííà îïöèÿ ïàòðóëèðîâàíèÿ, ïàòðóëèðóåì ïîñëå áîÿ!
       begin
        Patrol;
       end;
     end;
    Inc(i);
   end;
 end;
lbl24.Caption:='Äðàêè êîí÷èëèñü';
end;