Extrai lista de proxys da internet HTTP / HTTPS para uma lis

//Extrai lista de proxys da internet HTTP / HTTPS para uma lista

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
lHTTP: TIdHTTP;
begin
lHTTP:=TIdHTTP.Create(nil);
try
lHTTP.IOHandler:=TIdSSLIOHandlerSocketOpenSSL.Create(lHTTP);
lHTTP.HandleRedirects:=True;
lHTTP.ProtocolVersion:=pv1_1;
lHTTP.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';
s:=lHTTP.Get(Edit1.Text);
Memo1.Text:=s;
finally
lHTTP.Free;
end;
end;

function Parsing(Char, Str: string; Count: Integer): string;
var
i: Integer;
strResult: string;
begin
if Str[Length(Str)] <> Char then
Str:=Str + Char;
for i:=1 to Count do
begin
strResult:=Copy(Str, 0, Pos(Char, Str) - 1);
Str:=Copy(Str, Pos(Char, Str) + 1, Length(Str));
end;
Result:=strResult;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
StringToParse: String;
i: integer;
Linha: string;
begin
StringToParse:=Memo1.Text;
Memo2.Lines.Add(Parsing('<td>', StringToParse, 2));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 3));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 6));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 7));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 10));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 11));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 14));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 15));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 18));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 19));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 22));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 23));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 26));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 27));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 30));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 31));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 34));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 35));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 38));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 39));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 42));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 43));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 46));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 47));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 50));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 51));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 54));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 55));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 58));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 59));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 62));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 63));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 66));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 67));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 70));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 71));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 74));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 75));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 78));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 79));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 82));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 83));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 86));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 87));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 90));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 91));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 94));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 95));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 98));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 99));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 102));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 103));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 106));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 107));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 110));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 111));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 114));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 115));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 118));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 119));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 122));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 123));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 126));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 127));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 130));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 131));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 134));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 135));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 138));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 139));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 142));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 143));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 146));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 147));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 150));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 151));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 154));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 155));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 158));
Memo2.Lines.Add(Parsing('<td>', StringToParse, 159));

for i:=0 to Memo2.Lines.Count do
begin
Linha:=Memo2.Lines[i];
Delete(Linha, 1, 3);
Delete(Linha, Length(Linha)-4, 5);
Memo2.Lines[i]:=Linha;
end;

Memo2.Lines.Add(Memo2.Lines[0]+':'+Memo2.Lines[1]);
Memo2.Lines.Add(Memo2.Lines[2]+':'+Memo2.Lines[3]);
Memo2.Lines.Add(Memo2.Lines[4]+':'+Memo2.Lines[5]);
Memo2.Lines.Add(Memo2.Lines[6]+':'+Memo2.Lines[7]);
Memo2.Lines.Add(Memo2.Lines[8]+':'+Memo2.Lines[9]);
Memo2.Lines.Add(Memo2.Lines[10]+':'+Memo2.Lines[11]);
Memo2.Lines.Add(Memo2.Lines[12]+':'+Memo2.Lines[13]);
Memo2.Lines.Add(Memo2.Lines[14]+':'+Memo2.Lines[15]);
Memo2.Lines.Add(Memo2.Lines[16]+':'+Memo2.Lines[17]);
Memo2.Lines.Add(Memo2.Lines[18]+':'+Memo2.Lines[19]);
Memo2.Lines.Add(Memo2.Lines[20]+':'+Memo2.Lines[21]);
Memo2.Lines.Add(Memo2.Lines[22]+':'+Memo2.Lines[23]);
Memo2.Lines.Add(Memo2.Lines[24]+':'+Memo2.Lines[25]);
Memo2.Lines.Add(Memo2.Lines[26]+':'+Memo2.Lines[27]);
Memo2.Lines.Add(Memo2.Lines[28]+':'+Memo2.Lines[29]);
Memo2.Lines.Add(Memo2.Lines[30]+':'+Memo2.Lines[31]);
Memo2.Lines.Add(Memo2.Lines[32]+':'+Memo2.Lines[33]);
Memo2.Lines.Add(Memo2.Lines[34]+':'+Memo2.Lines[35]);
Memo2.Lines.Add(Memo2.Lines[36]+':'+Memo2.Lines[37]);
Memo2.Lines.Add(Memo2.Lines[38]+':'+Memo2.Lines[39]);
Memo2.Lines.Add(Memo2.Lines[40]+':'+Memo2.Lines[41]);
Memo2.Lines.Add(Memo2.Lines[42]+':'+Memo2.Lines[43]);
Memo2.Lines.Add(Memo2.Lines[44]+':'+Memo2.Lines[45]);
Memo2.Lines.Add(Memo2.Lines[46]+':'+Memo2.Lines[47]);
Memo2.Lines.Add(Memo2.Lines[48]+':'+Memo2.Lines[49]);
Memo2.Lines.Add(Memo2.Lines[50]+':'+Memo2.Lines[51]);
Memo2.Lines.Add(Memo2.Lines[52]+':'+Memo2.Lines[53]);
Memo2.Lines.Add(Memo2.Lines[54]+':'+Memo2.Lines[55]);
Memo2.Lines.Add(Memo2.Lines[56]+':'+Memo2.Lines[57]);
Memo2.Lines.Add(Memo2.Lines[58]+':'+Memo2.Lines[59]);
Memo2.Lines.Add(Memo2.Lines[60]+':'+Memo2.Lines[61]);
Memo2.Lines.Add(Memo2.Lines[62]+':'+Memo2.Lines[63]);
Memo2.Lines.Add(Memo2.Lines[64]+':'+Memo2.Lines[65]);
Memo2.Lines.Add(Memo2.Lines[66]+':'+Memo2.Lines[67]);
Memo2.Lines.Add(Memo2.Lines[68]+':'+Memo2.Lines[69]);
Memo2.Lines.Add(Memo2.Lines[70]+':'+Memo2.Lines[71]);
Memo2.Lines.Add(Memo2.Lines[72]+':'+Memo2.Lines[73]);
Memo2.Lines.Add(Memo2.Lines[74]+':'+Memo2.Lines[75]);
Memo2.Lines.Add(Memo2.Lines[76]+':'+Memo2.Lines[77]);
Memo2.Lines.Add(Memo2.Lines[78]+':'+Memo2.Lines[79]);

Memo2.Lines.Delete(0);
Memo2.Lines.Delete(1);
Memo2.Lines.Delete(2);
Memo2.Lines.Delete(3);
Memo2.Lines.Delete(4);
Memo2.Lines.Delete(5);
Memo2.Lines.Delete(6);
Memo2.Lines.Delete(7);
Memo2.Lines.Delete(8);
Memo2.Lines.Delete(9);
Memo2.Lines.Delete(10);
Memo2.Lines.Delete(11);
Memo2.Lines.Delete(12);
Memo2.Lines.Delete(13);
Memo2.Lines.Delete(14);
Memo2.Lines.Delete(15);
Memo2.Lines.Delete(16);
Memo2.Lines.Delete(17);
Memo2.Lines.Delete(18);
Memo2.Lines.Delete(19);
Memo2.Lines.Delete(20);
Memo2.Lines.Delete(21);
Memo2.Lines.Delete(22);
Memo2.Lines.Delete(23);
Memo2.Lines.Delete(24);
Memo2.Lines.Delete(25);
Memo2.Lines.Delete(26);
Memo2.Lines.Delete(27);
Memo2.Lines.Delete(28);
Memo2.Lines.Delete(29);
Memo2.Lines.Delete(30);
Memo2.Lines.Delete(31);
Memo2.Lines.Delete(32);
Memo2.Lines.Delete(33);
Memo2.Lines.Delete(34);
Memo2.Lines.Delete(35);
Memo2.Lines.Delete(36);
Memo2.Lines.Delete(37);
Memo2.Lines.Delete(38);
Memo2.Lines.Delete(39);
Memo2.Lines.Delete(40);
Memo2.Lines.Delete(41);
Memo2.Lines.Delete(42);
Memo2.Lines.Delete(43);
Memo2.Lines.Delete(44);
Memo2.Lines.Delete(45);
Memo2.Lines.Delete(46);
Memo2.Lines.Delete(47);
Memo2.Lines.Delete(48);
Memo2.Lines.Delete(49);
Memo2.Lines.Delete(50);
Memo2.Lines.Delete(51);
Memo2.Lines.Delete(52);
Memo2.Lines.Delete(53);
Memo2.Lines.Delete(54);
Memo2.Lines.Delete(55);
Memo2.Lines.Delete(56);
Memo2.Lines.Delete(57);
Memo2.Lines.Delete(58);
Memo2.Lines.Delete(59);
Memo2.Lines.Delete(60);
Memo2.Lines.Delete(61);
Memo2.Lines.Delete(62);
Memo2.Lines.Delete(63);
Memo2.Lines.Delete(64);
Memo2.Lines.Delete(65);
Memo2.Lines.Delete(66);
Memo2.Lines.Delete(67);
Memo2.Lines.Delete(68);
Memo2.Lines.Delete(69);
Memo2.Lines.Delete(70);
Memo2.Lines.Delete(71);
Memo2.Lines.Delete(72);
Memo2.Lines.Delete(73);
Memo2.Lines.Delete(74);
Memo2.Lines.Delete(75);
Memo2.Lines.Delete(76);
Memo2.Lines.Delete(77);
Memo2.Lines.Delete(78);
Memo2.Lines.Delete(79);

Button3.Click;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Click;
Label1.Caption:='Após 10 minutos a lista de proxys'+#13+'será atualizada automaticamente.';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled:=false;
Memo1.Clear;
Memo2.Clear;
Button1.Click;
Button2.Click;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
i: integer;
begin
//Apaga número de linhas memo
if StrToIntDef('40',0)=0 then
Exit;
for i:=0 to 40-1 do
begin
if Memo2.Lines.Count > 0 then
Memo2.Lines.Delete(0);
end;
Memo2.text:=Trim(Memo2.Text); //Apaga linhas vazias/em branco memo
Listbox1.Clear;
ListBox1.Items:=Memo2.Lines;
end;

procedure TForm1.TmrReloadTimer(Sender: TObject);
begin
Timer1.Enabled:=true;
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
Edit1.Text:='https://free-proxy-list.net/index.html';
Timer1.Enabled:=true;
Button1.Click;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
Edit1.Text:='https://www.sslproxies.org/';
Timer1.Enabled:=true;
Button1.Click;
end;