TStringList DelimitedText без кавычек

[artem78]

У меня есть список строк в TStringList. Мне нужно вывести их через разделитель.

Код: Выделить всё

program prog;
{$mode objfpc}
uses
 Classes, SysUtils;
var
   list: TStringList;
begin
   list := TStringList.Create;
   list.Append('Moscow');
   list.Append('Tokio');
   list.Append('New York');
   list.Delimiter := '/';
   
   writeln(list.DelimitedText);
   
   list.Free;
end.

Этот код выведет:

Moscow/Tokio/"New York"

а мне нужно чтобы кавычки не добавлялись и было так:

Moscow/Tokio/New York

Как это можно сделать?

Спасибо.

[Снег Север]

Как это можно сделать?

Вручную.

[resident]

Код: Выделить всё

list.StrictDelimiter := true;