procedure TForm2.GivePlays;
var
I: Integer;
begin
//PlayGiver = idHTTP Component (Indy)
for I := 0 to ListView1.Items.Count-1 do //List of Proxy Servers
begin
try
Application.ProcessMessages;
PlayGiver.ProxyParams.ProxyServer := Listview1.Items[I].Caption;
PlayGiver.ProxyParams.ProxyPort := StrToInt(listview1.items[i].subitems[0]);
Echo('Proxy Set to ' + Listview1.Items[I].Caption + ' Port ' + listview1.items[i].subitems[0] + ' Ready to make Connection. Click "OK" to continue.');
Application.ProcessMessages;
PlayGiver.Get(Edit1.Text);
Application.ProcessMessages;
except
Echo('There was a problem with ' + Listview1.Items[I].Caption + ' Port ' + listview1.items[i].subitems[0]);
Continue;
end;
end;
end;