[pikabu]

Пробую так

Код:

var
i: integer;
s: string;
begin
IdHTTP1.Request.BasicAuthentication := True;
IdHTTP1.Request.Username :='login';
IdHTTP1.Request.Password:='password';
For i:=0 to slistbox3.Items.Count-1 do begin
 s:=IdHTTP1.get('https://blalbalba/counterparty/'+sListBox3.Items[i]);
  Memo1.Lines.Append(s);
      ParseStr(Memo1.text, '"name" : "', '",', sListBox4.Items);
end;

Данные получаю по ссылкам, но идет затроение Результат записывается три раза в listbox, почему?

P.S. понял, добавил в конец Memo1.text:='' теперь норм. Осталось только заменить все ссылки в листвью на значения из listbox4