Выбрать данные мкжду \

[Shouldercannon]

Есть строка
\параметр1\1\параметр2\2\параметр3\ 3\параметр4\1000\
Данные пытаюсь выводить так

var
  txt: string;
  a: Integer;
begin
  txt := '\параметр1\1\параметр2\2\параметр3\3\параметр4\1000\';
  txt := Copy(txt, 2, length(txt)); // Убираю первый \

  a := Pos('\', txt); // Позиционируюсь на \

  Label1.Caption := Copy(txt, 1, a - 1); // Вывожу параметр1
  Delete(txt, 1, a - 2); // Пытаюсь удалить параметр1, но без успешно
  Label2.Caption := Copy(txt, 1, a - 1); // пытаюсь вывести значение параметра1, но снова неудача и видимо из-запредыдущей строки

Прошу вашей помощи

[_SERGEYX_]

function Tokenize(Str: WideString; Delimiter: string): TStringList;
var
  tmpStrList: TStringList;
  tmpString, tmpVal: WideString;
  DelimPos: LongInt;
begin
  tmpStrList := TStringList.Create;
  TmpString := Str;
  DelimPos := 1;
  while DelimPos > 0 do
  begin
    DelimPos := LastDelimiter(Delimiter, TmpString);
    tmpVal := Copy(TmpString, DelimPos + 1, Length(TmpString));
    if tmpVal <> '' then
      tmpStrList.Add(UpperCase(tmpVal));
    Delete(TmpString, DelimPos, Length(TmpString));
  end;
  Tokenize := tmpStrList;
end;

var sl: TStringList;
begin
sl:= TStringList.Create;
sl:= Tokenize('\параметр1\1\параметр2\2\параметр3\3\параметр4\1000\', '\');
ShowMessage(sl.Text);
sl.Free;
end;

[Shouldercannon]

Очень даже хороший пример, но
1. Почему он выводит данные справа налево
\параметр1\1\параметр2\2\ -> параметр2 - 2 - параметр1 - 1
2. Если в строке есть данные написанные с маленькой буквы, то после обработки они становятся с большой
max - MAX
P.S. Как можно полученный результат вывести ListView в две колонки (Параметр|Значение)?

[_SERGEYX_]

1.

tmpStrList.Add(tmpVal);
//напиши вместо этого, что-то типа
tmpStrList.Text:=tmpVal+#13+#10+ tmpStrList.Text;
//Чтобы строку не в конец а в начало писать.

2.

tmpStrList.Add(UpperCase(tmpVal));
//Убери UpperCase
tmpStrList.Add(tmpVal);