Проблема с ClientSocket

[foxes]

Люди помогите, не работает цикл.
У меня в мемо 4 строчки соединяется только с последней адрес а все проскакивают

if not f then exit;
inc(i); 
if i=Memo1.Lines.Count-1 then Exit;//Если конец списка, то идём Выход
for i:=0 to Memo1.Lines.Count -1 do
    begin
    f:=false; //Останавливаем цикл
    ClientSocket1.Address:=Memo1.Lines[i];
    ClientSocket1.Port:= strtoint(sComboBox1.Text);
    ClientSocket1.Active:=true;
    Application.ProcessMessages;
   end;
  Timer2.Enabled:=False;  // Останавливаем таймер
end;

[3D Hunter]

Нет никакой проблемы, точнее она в непонимании. Через один сокет нельзя соединиться одновременно с произвольным числом адресов. Один сокет - один адрес. Комментировать код не стану, т.к. не известны тонкости реализации. Но из оного видно, что ваш сокет последовательно в цикле соединяется и рвет соединение с каждой строчкой мемо, за исключением последней.

[foxes]

Так что f: boolean; не останавливает цикл на строчки?
И как сделать подскажите?

[Пепел Феникса]

а в честь чего f должна остановить цикл?

[foxes]

Сообщение от Пепел Феникса

а в честь чего f должна остановить цикл?

А не могли вы подсказать, как сделать?

[Stilet]

Извиняюсь, а в чем задача?
Код мне например ни о чем не говорит.

[foxes]

Сканер Cs-16 серверов, берёт из мемо(адреса) проверяете работает или нет
И результат вы водим в мемо

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
if ClientSocket1.Socket.Connected then
 sMemo1.Lines.Add(ClientSocket1.Address);
  ClientSocket1.Active:=False;
 f:=true; //Включаем цикл
end;

procedure TForm1.ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
ErrorCode:= 0; // Игнорируем ошибки
  if not ClientSocket1.Socket.Connected then
  begin
    sMemo1.Lines.Add(ClientSocket1.Address);
    Form1.Gauge1.Progress:=Form1.Gauge1.Progress+1; //Продвигаемся =)
    f:=true; //Включаем цикл
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
if not f then exit;
inc(i);
if i=Memo1.Lines.Count-1 then Exit;//Если конец списка, то идём Выход
for i:=0 to Memo1.Lines.Count -1 do
    begin
    f:=false;//Останавливаем цикл
    ClientSocket1.Address:=Memo1.Lines.Strings[i];
    ClientSocket1.Port:=strtoint(sComboBox1.Text);
    ClientSocket1.Active:=true;
    Application.ProcessMessages;
   end;
  Timer2.Enabled:=False;// Останавливаем таймер
end;