Сдела программу, загружаю аккаунты и надо автомат

procedure TForm1.avtoreg;
var
login, pass, id, username, FirstName, LastName, Email,  z, a, f, l, e: string;
response, LoginData, sms, sresponse : TStrings;
temp: array[0..10] of string;
i : integer;
begin
 
  explode(temp, ':', sMemo1.Text);
  login:=temp[0];
  pass:=temp[1];
  FirstName:=temp[2];
  LastName:=temp[3];
 
  Response := TStringList.Create;
  LoginData := TStringList.Create;
  sms := TStringList.Create;
  sresponse := TStringList.Create;
 
  try
    LoginData.Add('json='+ '******');  //отправка данных
    response.Text := idhttp1.Post('САЙТ', LoginData); //авторизация
    id := pars('id":"',response.Text,'","'); //id
    username := pars('username":"',response.Text,'"}');//имя пользователя
 
    if Pos('id', response.Text)>0 then
    begin
      smemo2.Lines.Add('Авторизация успешна.Имя пользователя: '+username);
      try
        sms.Add('json='+'*****');
        response.Text := idhttp1.Post('САЙТ',sms);
        if Pos('id',response.Text)>0 then
        begin
          smemo2.Lines.Add('Сообщение отправленно');
        end;
      except
        smemo2.Lines.Add('Ошибка отправки');
      end;
    end;
  except
    smemo2.Lines.Add('Авторизация не удалась');
  end;
end;