Загрузка интернет страниц в цикле

  for I:=1 to 16 do begin
  Wb.Navigate('http://85.142.162.126/os/xmodules/qprint/index.php?proj_guid=B24AFED7DE6AB5BC461219556CCA4F9B&theme_guid=B63B71D831B3A40D41ADF42A3E281905&groupno='+I.ToString); // Загружаем страницу
 
  Wb.DocumentCompleted += DocCompl;
  end;

{$apptype windows}
{$reference 'System.Windows.Forms.dll'}
{$reference 'System.Drawing.dll'}
 
uses
  System.Windows.Forms,
  System.Drawing;
 
var
  MainForm: Form;
  tmr : System.Timers.Timer;
  Wb: System.Windows.Forms.WebBrowser;
  i : integer := 0;
  
procedure DocCompl(sender: Object; e: System.Windows.Forms.WebBrowserDocumentCompletedEventArgs);
var s : string;
begin
  if Wb.DocumentStream = nil then s := '';
  var sr: System.IO.StreamReader := new System.IO.StreamReader(Wb.DocumentStream, Encoding.GetEncoding(1251));
  Wb.DocumentStream.Position := 0;
  s := sr.ReadToEnd();
  WriteAllText(Format('page{0}.txt', i), s, Encoding.UTF8)
end;
 
// по тику таймера переходим на очередную страничку, когда страница подгрузится, отработает
// Wb.DocumentCompleted и произойдет сохранение в текстовый файл
procedure tmrTick(sender : Object; e : System.Timers.ElapsedEventArgs);
begin
  inc(i);
  Wb.Navigate('http://85.142.162.126/os/xmodules/qprint/index.php?proj_guid=B24AFED7DE6AB5BC461219556CCA4F9B&theme_guid=B63B71D831B3A40D41ADF42A3E281905&groupno='+I.ToString); // Загружаем страницу
  if i = 16 then tmr.Enabled := false; // останавливаем процесс, когда добрались до конечного значения
end;
 
procedure frmLoad(sender : Object; e: System.EventArgs);
begin
  tmr := new System.Timers.Timer; // Создаем таймер, назначаем обработчик тика, и выставляем его на 2 секунды
  tmr.Interval := 2000; // 2 sec
  tmr.Elapsed += tmrTick;
  tmr.Enabled := true;
end;
 
 
  
begin
  MainForm := new Form;
  MainForm.Size := new System.Drawing.Size(600, 400);
  
  Wb := new WebBrowser; // Создаём веб-браузер
  Wb.Dock := System.Windows.Forms.DockStyle.Fill; // Растягиваем на всю форму
  
  Wb.DocumentCompleted += DocCompl; // Событие происходящее если вся страница загружена
  
  MainForm.Controls.Add(Wb);
  MainForm.Load += frmLoad; // при загрузке формы будем выполнять действия, описанные в frmLoad
  
  Application.EnableVisualStyles;
  
  Application.Run(MainForm);
end.