Mine

function Tform1.sbegin1: string;
var
Selection7:String;
position1 : Integer;
position2 : Integer;
position3 : Integer;
position4 : Integer;
za1:string;
za3:string;
za4:string;
zo1:string;
zo3:string;
zo4:string;
za2:string;
zo2:string;
fi:integer;

begin
 for fi := 0 to ListBox1.items.count -1 do
begin
 if xstop='1' then
  begin
 exit;
  end;

try
 Application.ProcessMessages;
  label2.Caption:=(IntToStr(ListBox1.Items.Count -fi));
   Application.ProcessMessages;
    Selection7:=  ListBox1.Items[fi];
 zo1:='';
  zo2:='';
   zo3:='';
    zo4:='';
Application.ProcessMessages;
 za1:=idhttp1.Get('http://'+Selection7+'/site1/');
  Application.ProcessMessages;
   zo1:=(za1);
 Application.ProcessMessages;
 
except
  On e : Exception do
end;

 position1 := AnsiPos('test1', zo1);
  if position1 <> 0 then begin
   ListBox2.Items.Add(Selection7);
    label10.Caption:=(IntToStr(ListBox2.Items.Count));
end;

try
 Application.ProcessMessages;
  za2:=idhttp2.Get('http://'+Selection7+'/site2/');
   Application.ProcessMessages;
    zo2:=(za2);

 except
  On e : Exception do
end;
 
position2 := AnsiPos('test2, zo2);
  if position2 <> 0 then begin
   ListBox6.Items.Add(Selection7);
    label11.Caption:=(IntToStr(ListBox6.Items.Count));
     end;

try
 Application.ProcessMessages;
   za3:=idhttp3.Get('http://'+Selection7+'/site3/');
     Application.ProcessMessages;
       zo3:=(za3);
 except
  On e : Exception do
 end;

 position3 := AnsiPos('test3', zo3);
  if position3 <> 0 then begin
   ListBox7.Items.Add(Selection7);
    label12.Caption:=(IntToStr(ListBox7.Items.Count));
   end;

try
     Application.ProcessMessages;
       za4:=idhttp4.Get('http://'+Selection7+'/site4');
         Application.ProcessMessages;
           zo4:=(za4);
except
  On e : Exception do
end;

 position4 := AnsiPos('test4', zo4);
  if position4 <> 0 then begin
    ListBox8.Items.Add(Selection7);
      label13.Caption:=(IntToStr(ListBox8.Items.Count));
end;
 end;
  end;