Проблема с прокси

У меня вот такая проблема, я решил добавить в свой брут прокси. Все работает, но когда прокси заканчиваются, то брут останавливается. Как мне сделать что бы по окончанию списка проксей, они начинались с начала?

 

добавь в основной цикл проверку на конец файла еоf и если "да", то переместить курсор считывания в начало файла. на скорости не скажется.

 

В начале кода
Глобальная переменная proxyschet:integer;
If proxyschet>=form1.memo1.text then
Proxyschet:=0:
Ну смысл думаю понятен

 

Спасибо)) думаю поможет)

 

А можно еще один вопрос, как мне перемешать прокси лист?

 

Зачем это о_О


procedure TForm1.Button1Click(Sender: TObject);
var i, k, kol : Longint;
TS : TStringList;
s : string;
begin
TS := TStringList.Create;
TS.Text := Memo1.Text;
Randomize;
kol := TS.Count;
for i:=0 to kol-1 do
begin
k := Random(kol);
while k=i do k := Random(kol);
s := TS.Strings[k];
TS.Strings[k] := TS.Strings;
TS.Strings := s;
end;

Memo2.Text := TS.Text;
FreeAndNil(TS);
end;

 

Фига се Витя выдал, ему бы кодера а не Селлер

 

Это с паба не мой код я с телефона
А с него не очень удобно писать :(