пропадает +

procedure datainapp;
var
i,c,a:integer;
d:integer = 20000;
list:TStringList;
url: string = 'https://service-vv.ru/rest_api/data_in.php';
Tlogin:TIniFile;
begin
 a := GetTickCount;
 Tlogin:=TIniFile.Create(ExtractFilePath (ParamStr (0))+'setting\online.ini');
 list:=TStringList.Create;
 list.Text:= SQLExecute( 'SELECT group_concat(id, char(13) || char(10)) FROM servise WHERE appUpdate=1' );
 c:=list.Count-1;
 datainout:=createoleobject('WinHttp.WinHttpRequest.5.1');
 timerDataInout:=TTimer.Create(frmLogin);
 timerDataInout.Enabled:=True;
 timerDataInout.Interval:=1000;
 timerDataInout.OnTimer:=@SDataApp;
 for i:=0 to c do
  begin
  datainout.open('POST', url, True);
  datainout.SetRequestHeader('Content-Type', 'application/x-www-form-urlencoded');
  datainout.send('password='+
  '&login='+Tlogin.ReadString('online','login','')+'&pass='+Tlogin.ReadString('online','password','')+
  '&sservice='+Tlogin.ReadString('online','IDService','')+'&idapp='+list[i]+
  '&firstnameapp='+sqlexecute('SELECT firstNameClient FROM servise WHERE id='+list[i])+
  '&lastnameapp='+sqlexecute('SELECT lastNameClient FROM servise WHERE id='+list[i])+
  '&telephonapp='+sqlexecute('SELECT telephonClient FROM servise WHERE id='+list[i])+
  '&dateapp='+sqlexecute('SELECT dateApplcation FROM servise WHERE id='+list[i])+
  '&timeapp='+sqlexecute('SELECT timeApplication FROM servise WHERE id='+list[i])+
  '&descriptionapp='+sqlexecute('SELECT descriptionATCsWords FROM servise WHERE id='+list[i])+'');
repeat
     Application.ProcessMessages;
     if SDataApp(list[i])then begin
      SQLExecute('UPDATE servise SET appUpdate="0" WHERE id = '+list[i]);
     break;
     end;
   until (GetTickCount - a) >= d;
  end;
  timerDataInout.Enabled:=False;
  dataoutapp;
end;

procedure frmEditUser_bEditUser_OnClick (Sender: TObject; var Cancel: boolean);
var
slParam: TStringList;
idusers:integer;
begin
if  frmAdmin.tgUserApp.SelectedRow >-1   then begin
     idusers:= frmAdmin.tgUserApp.SelectedRow;
     try
      slParam := TStringList.Create;
      slParam.Add('password=;
      slParam.Add('idusers='+frmAdmin.tgUserApp.Cells[0,idusers]);
      slParam.Add('login='+frmEditUser.eLogin.Text);
      slParam.Add('pass='+frmEditUser.ePassword.Text);
      slParam.Add('firstname='+frmEditUser.eFirstName.Text);
      slParam.Add('lastname='+frmEditUser.eLastName.Text);

      slParam.text:= HTTPPost('https://service-vv.ru/rest_api/edit_user.php',slParam);

       if Pos('0', slParam.text) > 0  then Showmessage('Ошибка обработки запроса!')else
       if Pos('-2',  slParam.text) > 0  then Showmessage('Ошибка передачи даных!')else
       if Pos('-1',  slParam.text) > 0  then Showmessage('Ошибка редактирования!')else
       if Pos('1',  slParam.text) > 0  then begin

       userall;
       Showmessage('Данные пользователя изминены');
       frmEditUser.Close;
       end;
      except
   end;
    end else
  Showmessage('Запись не выбрана!');
end;

http.send('password='+HttpEncode(p)+'&login='+HttpEncode(frmAdmin.eloginst.Text)+'&pass='+HttpEncode(frmAdmin.ePass.Text)+'&sservice='+HttpEncode(frmAdmin.eIdService.Text)+'');