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;