Использование TStringList в визуальных компонентах

TStrings - абстрактный базовый класс, используемый многими визуальными компонентами, такими как, например, TListBox. Все, что вы хотите, имеется в TStringList, а если вам нужно следить только за объектами, то вместо него используйте TList. Для добавления элемента в конец списка используется метод Add. Для добавления элемента в определенное место списка используется метод Insert. Для получения строки из списка используется свойство Items. Обратите внимание на то, что счет начинается с нуля, поэтому последний элемент имеет порядковый номер Count-1 (Count это другое свойство). Для удаления строки используется метод Delete. Для нахождения строки в списке используется IndexOf. Можно сделать так, чтобы TStringList хранил список в алфавитном порядке. Чтобы сделать это, то прежде, чем добавить что-то к списку, установите свойство Sorted в True. TStringList может такьзоваться для хранения для каждой строки ссылки на объект; осуществить это можно с помощью AddObject и свойства Objects. TList делает вышесказанное, но без строк. Для создания TStringlist сделайте следующее:

procedure MakeList;
var