[Delphi 7] Добавление в ListBox выделенного текста

[Oldcentre]

Имеется один мемо, один листбокс и кнопка.
Нужно, чтобы при нажатии на кнопку выделенный текст добавлялся как новая строка в листбокс.
Подскажите, пожалуйста, как это сделать. Мне даже не код нужен, а принцип.
Дальше чем: ListBox1.Items.Add(Memo1.Lines.Text ); не зашел. Даже мыслей нет, как заставить добавить выделенный текст.

P.S: Я не озабоченный студент, мне для себя.

P.P.S: И еще вопрос туда же.
Как реализовать окно изменения шрифта отдельно (вроде как в Word'е), не через FontDialog. Изменение шрифтов для отдельных кусков текста не обязательна (как-нибудь потом сам догадаюсь), а именно панельку как разместить в близкой доступности?

[Николай ПН]

Чтобы добавить выделенное, надо написать

ListBox1.Items.Add(Memo1.SelText);

[Oldcentre]

Николай ПН, спасибо!