In order listbox items to process
===

(Sorry, i little know English.)
I trying to make an application. I want to make this application process in order (In-line). 

- I have listed proxy addresses <- Listbox1.
- Listbox1.Items: 1.2.42.x.2.4:42, 2.4.1.x.1.2.x.2:60 ... ...
- Using the IDHTTP.


Button click codes;

    procedure TForm1.Button1Click(Sender: TObject);
    var
      I: Integer;
      S: String;
    begin
      I := Listbox1.ItemIndex;
      if I <> -1 then
      begin
        S := Listbox1.Items[I];
        IdHTTP1.ProxyParams.ProxyServer := Fetch(S, ':');
        IdHTTP1.ProxyParams.ProxyPort := StrToInt(S);
         try
    
    IdHTTP1.ReadTimeout:=strtoint(form1.Edit1.Text); // ZMAAN AŞIMI
    IdHTTP1.Get(Edit4.Text);                         // POST GET
    MessageDlg('Ok.', mtinformation,[mbOK],0); // TAMAMLANDI.
    except
    MessageDlg('Error.', mtinformation,[mbOK],0);   // HATA VERDİ.
    
    IdHTTP1.Disconnect;   // ÖLDÜR.
    end;
    end;
    end;


I wanted to do;

- Button1.click -> the above codes.
- Later -> automatically Listbox1.item[1]
- Listbox1.item[2].. ... continue..

Can be done with the TTimer? How?