Здравствуйте, Aniskin, Вы писали:

A>Здравствуйте, Eagle-XK, Вы писали:

EX>>Ну так загляни в исходники!

A>Я то заглянул в исходники, а ты туда смотрел? Я увидел следующее:

A>1) Свойство Items объявлено в классе TCustomListBox как Tstrings.
A>2) Свойство Items иницилизируется в конструкторе класса TCustomListBox строкой Fitems := TListBoxStrings.Create
A>3) TListBoxStrings = class(TStrings)
A>4) TStringList = class(TStrings)

A>А что ты увидел там?

Хмм.. Да, в этом моя оплошность — действительно там TListBoxStrings. Но это сути дела не меняет, т.к. в рассматриваемом примере эти классы-наследники TStrings работают сравнимо одинаково.