Müsste das nicht umgedreht werden?
Delphi-Quellcode:
var
p, idx : Integer;
idx := 0;
p := Pos('/', ...);
while p > 0 do
begin
case Idx do
// das was du da hast
end;
Inc(Idx);
p := PosEx('/', ..., p + 1);
end;
Außerdem sucht Pos jetzt ob Stringlist.Text = '/' ist. Guck dir doch mal die Hilfe zu Pos(Ex) an. Zuerst SubStr dann Str und eventuell dann Offset.
Und dann bekommst du die Stelle im String. Und das muss keine Zahl zw. 1 und 8 sein!
MfG
xZise