for schleife

[Headi]

Hallo leute,

So ich habe wieder mal ein kleines Problem:

folgender code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SL := TStringList.Create;
  SLSub := TStringList.Create;
  SL.Add(Memo1.Text);
  for i := 0 to SL.Count -1 do
    begin
      SLSub.DelimitedText := SL[i];
      begin
        IdIcmpClient1.Host := SLSub[i];
        IdIcmpClient1.Ping;
        Application.ProcessMessages;
      end;
    end;
end;

funktioniert ja auch alles gut, nur führt er mir diesen teil nur genau einmal durch:

Delphi-Quellcode:

      SLSub.DelimitedText := SL[i];
      begin
        IdIcmpClient1.Host := SLSub[i];
        IdIcmpClient1.Ping;
        Application.ProcessMessages;

ist ja eigentlich auch logisch, denn wenn ich mir SL.count ausgebe bekomme ich immer 1.
ich kriege das einfach irgendwie nicht hin.

vielleicht noch zur erklärung, ich habe ein memo, dort steht auf jeder linie eine ip.
ich lade mir das memo in eine StringList, jetzt möchte ich das ganze so unterteilen, dass jede zeile ein eigener wert ist.
und dann schliesslich jeden wert anpingen.


Wo ist der fehler, wie muss ich das abändern??

vielen dank schon mal

mfg headi