procedure TForm2.GivePlays;
var
I: Integer;
begin
//Try this a small amount of times at first
//Play Giver is an Indy HTTP Component
for I := 0 to ListView1.Items.Count-1 do
begin
try
PlayGiver.ProxyParams.Clear;
PlayGiver.ProxyParams.ProxyServer := Listview1.Items[I].Caption;
PlayGiver.ProxyParams.ProxyPort := StrToInt(listview1.items[i].subitems[0]);
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;
Echo('Proxy Set to ' + Listview1.Items[I].Caption + ' Port ' + listview1.items[i].subitems[0] + ' Ready to make Connection. Click "OK" to continue.');
end;
end;