[Помогите!] Проблема с ClientSocket

[foxes20]

Люди помогите, не соединяется сервером.

procedure TForm1.FormCreate(Sender: TObject);
begin
try
s:=Tstringlist.create;
memo1.Lines.LoadFromFile('p.txt');
except
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer2.Enabled:=true;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
for i:=0 to Memo1.Lines.Count-1 do
begin
st:= Memo1.Lines[i];  {взяли очередную строку из Memo1}
ClientSocket1.Address:=st[i];
ClientSocket1.Port:= 1234;
ClientSocket1.Active:=true;
Application.ProcessMessages;
end;

[Mebius]

Цитата: Сообщение от foxes20 Люди помогите, не соединяется сервером. procedure TForm1.FormCreate(Sender: TObject); begin try s:=Tstringlist.create; memo1.Lines.LoadFromFile('p.txt'); except end; procedure TForm1.Button1Click(Sender: TObject); begin Timer2.Enabled:=true; end; procedure TForm1.Timer2Timer(Sender: TObject); begin for i:=0 to Memo1.Lines.Count-1 do begin st:= Memo1.Lines[i]; {взяли очередную строку из Memo1} ClientSocket1.Address:=st[i]; ClientSocket1.Port:= 1234; ClientSocket1.Active:=true; Application.ProcessMessages; end;

2 энда забыл + забыл деактивировать перед следующим коннектом

[foxes20]

Mebius, Большое вам спасибо за ответ, проблема в том, что останавливаться на первой строчки.

А на вторую строчку, не переходит.

procedure TForm1.Timer2Timer(Sender: TObject);
begin
 inc(i);
for i:=0 to Memo1.Lines.Count -1 do
 begin
    f:=false;
    Cl.Address:=Memo1.Lines.St[i];
    Cl.Port:= strtoint(sComboBox1.Text);
    ClActive:=true;
    Application.ProcessMessages;
 Break;
 end;
 Timer2.Enabled := False;  // Останавливаем таймер
end;

Добавлено через 19 часов 45 минут
Люди, так что никто не знает как запустить цикл ?