1:
2:
3:

foreach $line (@string) { 
//was gemacht werden soll
}                    

1:

S := IdHTTP1.Get('http://localhost/text.php');                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

type
  TStrArray = Array of String;

procedure Explode(const Trennzeichen, Zeichenkette: String; out StrArray: TStrArray);
var
  I: integer;
  S, T: String;
begin
  S := Zeichenkette;
  T := Trennzeichen;
  if Copy(S, 1, Length(T)) = T then
    Delete(S, 1, Length(T));
  if Copy(S, Length(S) - Length(T) + 1, Length(T)) = T then
    Delete(S, Length(S) - Length(T) + 1, Length(T));
  I := 1;
  while Pos(T, S) > 0 do begin
    SetLength(StrArray, I);
    StrArray[I - 1] := Copy(S, 1, Pos(T, S) - 1);
    Delete(S, 1, Pos(T, S) + Length(T) - 1);
    Inc(I);
    if Pos(T, S) = 0 then begin
      SetLength(StrArray, I);
      StrArray[I - 1] := S;
      exit;
    end;
  end;
end;