TMemo с автоматическим отображением/скрытием полос прокрутки

Мне нужен простой TMemo, который НЕ отображает полосы прокрутки, когда они не нужны (т.е. недостаточно текста), но показывает, когда они нужны. что-то вроде ScrollBars = ssAutoили TRichEdit HideScrollBars.

Я пытался создать подкласс TMemo и использовать ES_DISABLENOSCROLLв CreateParams, как в TRichEdit, но это не работает.

Редактировать: это должно работать с включенным WordWrapили без него.