Автоматическое увеличение высоты RichEdit

[Kib]

Мне нужно сделать так, чтоб если в RichEdit текст выходил за грани, скролл не появлялся, а у самого RichEdit увеличивалась высота.
Я пробовал так, но работает ооочень криво:

RichEdit1.Height:=(1+RichEdit1.Lines.Count)*17;

- такой вариант меня не устраивает, так как RichEdit дергается, и постепенно появляется разница между количеством строк и высоты, в общем кривовато.

Предложите пожалуйста другой вариант реализации.

[Kib]

Все. Разбрался. Сделал с помошью Shape. Т.е. прировнял высоту шейпа с количеством строк в риче:

Shape1.Height:=(1+RichEdit1.Lines.Count)*17;

а потом высоту рича приравнял с высотой шейпа:

RichEdit1.Height:=Shape1.Height;

И все стало нормально, прям чудеса какие то!!! По сути разнцы то нет, но РАБОТАЕТ ВЕДЬ!!!