[Delphi] Цикл post запросов

Пишу программу, программа для отправки ЛС на одном из сайтов.

Задача состоит в том, чтобы программа брала нужные ID из ListBox и делала рассылку в цикле по указанным адресам.

Код подгрузки в ListBox:

Code:

procedure TForm1.Button11Click(Sender: TObject);
begin
If OpenDialog1.Execute then
  Edit12.Text:=OpenDialog1.FileName;
  ListBox1.Items.LoadFromFile(OpenDialog1.FileName);
end;

Код отправки сообщения (ID берется из Edit):

Code:

procedure TForm1.Button5Click(Sender: TObject);
var Data:TStringList;;
    begin
 Data:=TStringList.Create;
 Data.Add('list='+Edit6.Text);//текст сообщения
 Data.Add('list_to='+Edit4.Text);//адресат
 Data.Add('action=post_list');
 S:=IdHTTP1.Post('http://www.site.ru/list/?from='+Edit4.Text, Data);
 if Pos(Edit6.Text, S)<>0 then
 Memo2.Lines.Add('Письмо отправлено')
 else
  Memo2.Lines.Add('Письмо не отправлено')
end;

Как задать сам цикл- не знаю..Прошу совета.

 

Схему цикла понимаю...
Не могу понять как подгрузить к

Code:

 Data.Add('list_to='+Edit4.Text);//адресат

нужный адресат из ListBox

Code:

NashId:=TStringList.Create;
NashId.LoadFromFile(Edit1.Text);

  begin
           For B:=0 to NashId.Count-1 do
                   begin
                        Data.Add('list_to=') :=NashId.Strings[b];//Данная строчка интересует..

 

for I := 0 to Listbox1.Count - 1 do
Набери в поисковике "циклы" и получишь тысячи страниц с информацией

 

Code:

procedure TForm1.Button5Click(Sender: TObject);
var Data:TStringList;
i: integer;
    begin
 Data:=TStringList.Create;
For i:=0 to listbox1.Items.Count - 1 do begin
 Data.Add('list='+Edit6.Text);//текст сообщения
 Data.Add('list_to='+ListBox1.Items.Strings[i]);//адресат
 Data.Add('action=post_list');
 S:=IdHTTP1.Post('http://www.site.ru/list/?from='+Edit4.Text, Data);
 if Pos(Edit6.Text, S)<>0 then
 Memo2.Lines.Add('Письмо отправлено')
 else
  Memo2.Lines.Add('Письмо не отправлено')
Data.Clear;
end;
end;

ListBox1.Items.Strings - возвратит строку с индексом текущей итерацией цикла.

 

Спасибо!Но вопрос остается открытым.
А именно переменную которую я передаю в запросе Data.Add('list_to=') нужно связать с ID из ListBox в цикле.

 

Спасибо, сейчас попробую​

 

Отлично, вопрос решен!