//Пример кода : Простой пример 
var
  animals : TStringList;            // Определение нашей переменной списка строк
  i       : Integer;
begin
  // Определение объекта списка строк, и указание нашей переменной на него
  animals := TStringList.Create;

  // Теперь добавляем несколько названия в наш список
  animals.Add('Cat');
  animals.Add('Mouse');
  animals.Add('Giraffe');

  // Теперь показываем этих животных
  for i := 0 to animals.Count-1 do
    ShowMessage(animals[i]);  // animals[i] эквивалентно animals.Strings[i]
end;

//Пример кода : Использование строк название-значение 
var
  names  : TStringList;            // Определение нашей переменной списка строк
  ageStr : String;
  i      : Integer;
begin
  // Определение объекта списка строк, и указание нашей переменной на него
  names := TStringList.Create;

  // Теперь добавляем несколько названия в наш список
  names.CommaText := 'Neil=45, Brian=63, Jim=22';

  // И теперь находим возраст Брайена
  ageStr := names.Values['Brian'];

  // Показ этого значения
  ShowMessage('Возраст Brian'а = '+ageStr);

  // Теперь отображаем все имена и значение возраста
  for i := 0 to names.Count-1 do
  begin
    ShowMessage(names.Names[i]+' - '+names.ValueFromIndex[i]);
  end;
end;

//Пример кода : Использование DelimitedText, Delimiter и QuoteChar 
var
  cars : TStringList;            // Определение нашей переменной списка строк
  i    : Integer;
begin
  // Определение объекта списка строк, и указание нашей переменной на него
  cars := TStringList.Create;

  // Теперь добавляем несколько значений в наш список - используя свойство DelimitedText
  // с заменой управляющих переменных
  cars.Delimiter := ' ';        // Каждый элемент списка будет разделён пробелом
  cars.QuoteChar := '|';        // И каждый элемент взят в '|'
  cars.DelimitedText := '|Honda Jazz| |Ford Mondeo| |Jaguar "E-type"|';

  // Теперь показываем эти автомобили
  for i := 0 to cars.Count-1 do
    ShowMessage(cars[i]);       // cars[i] эквивалентно cars.Strings[i]
end;