Problem mit PosEx

[gangs-taas]

ihr müsst mir noch einmal helfen
ich hab das jetzt so gemacht

Delphi-Quellcode:

  procedure Schnippeln (Stringlist : TStringlist ) ;
  var
  ZeilenZahlen : Array[1..8] of integer ;
  i : Integer ;
  Prüfstring : String ;
  zaehler  : Integer ;
  begin
    zaehler := 1;
    For i := 1 To Length(Stringlist.Text) do
      begin
        Prüfstring := Stringlist.Text[i];
        if Prüfstring = '/' then
          begin
            ZeilenZahlen[Zaehler] := i;
            inc(Zaehler);
          end;
        end;
    Startwoche := Copy(Stringlist.Text,(ZeilenZahlen[1]+1),(ZeilenZahlen[2]-1));
    ShowMessage(Startwoche);
    Intervall := Copy(Stringlist.Text,(ZeilenZahlen[3]+1),(ZeilenZahlen[4]-1));
    ShowMessage(Intervall);
    Tag := Copy(Stringlist.Text,(ZeilenZahlen[5]+1),(ZeilenZahlen[6]-1));
    ShowMessage(Tag);
    Text := Copy(Stringlist.Text,(ZeilenZahlen[7]+1),(ZeilenZahlen[8]-1));
    ShowMessage(Text);
    end ;

also meine idee war, dass ich heraus finde wo die '/' in meinem Text sind und ich dann geziehlt genau das zwischen ihnen heraus kopieren kann was ich brauche

ich vermute dass das Problem ist das er bei copy die 'enter' zeichen anders zählt als bei meinem "'/'-Find-code" wisst ihr wie ich das lösen kann ?