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;