Выбор прокси Random

[record222]

Объясните, где нужно поставить функцию рандом или же, что нужно сделать чтоб выбирались каждый раз различные прокси из файла proxy.txt.

procedure TForm3.CheckBox2Click(Sender: TObject);
var
ProxyList:TStringlist; /// файл с проксями
pos1:integer; /// для разделения сервер:порт
i:integer; /// оператор цикла
str:string; /// переменная троки из файла
server,port:string; /// переменные для прокси
float:single;

begin /// Начало процедуры
{--- Загружаем список прокси ---}
  if checkbox2.Checked then
  begin
  button2.Enabled:=False;
  edit6.Enabled:=False;
  Edit7.Enabled:=False;
 ProxyList:=TStringList.Create;
 try
 ProxyList.LoadFromFile('proxy.txt');
 except
 ShowMessage('Создайте файл proxy.txt');
 end;
   if ProxyList.Text=''
 then begin
  ShowMessage ('Список пуст');
 exit;
 end;
 for i:=0 to proxylist.Count-1 do
 begin /// начало цикла
   str:=ProxyList[i];
  pos1:=pos(':', str);
  Server:=copy(str, 1,  pos1-1);
  Port:=copy(str, pos1+1, length(str) - pos1);
Edit6.text:=Server;
Edit7.Text:=Port;
 IdHttp2.ReadTimeout:=20000;
 application.processmessages;
 end;
 end
 else
 begin
 button2.Enabled:=True;
 edit6.enabled:=True;
 edit7.Enabled:=True;
end;
end;

[TwiX]

for i:=0 to proxylist.Count-1 do
 begin /// начало цикла
   str:=ProxyList[i];
  pos1:=pos(':', str);
  Server:=copy(str, 1,  pos1-1);
  Port:=copy(str, pos1+1, length(str) - pos1);
Edit6.text:=Server;
Edit7.Text:=Port;
 IdHttp2.ReadTimeout:=20000;
 application.processmessages;
 end;

=>

i:=random(proxylist.Count);
   str:=ProxyList[i];
  pos1:=pos(':', str);
  Server:=copy(str, 1,  pos1-1);
  Port:=copy(str, pos1+1, length(str) - pos1);
Edit6.text:=Server;
Edit7.Text:=Port;
 IdHttp2.ReadTimeout:=20000;
 application.processmessages;