[Страдалецъ]

Имеем вот такой код:

Код:

program Project2;

{$APPTYPE CONSOLE}

uses
  Classes, SysUtils;

Var
  Lst: TStringList;
  Example: String;
begin
 Example := '\\root\subdir 1\subdir 1 1\subdir 1 1 1\filename.ext';
 Lst := TStringList.Create;
 // Вариант1
 Lst.Delimiter := '\';
 Lst.DelimitedText := Example;
 WriteLn(Lst.Strings[Lst.Count - 2]);
 // Вариант2
 Lst.Text := StringReplace(Example,'\',#13,[rfReplaceAll]);
 WriteLn(Lst.Strings[Lst.Count - 2]);
 ReadLn;
 Lst.Free;
end.

Вопрос. Почему разный результат?