Проблема авто-скрола в TMemo

[XXXXXX]

Доброго времени суток.
У меня возникли проблемы с TMemo, пытаюсь сделать что-то наподобие поля ввода в чате.
При переходе на новую строку и при авто-переносе текста (wordwrap), поле должно автоматически регулировать высоту, но до определённого размера.
Для этого на событие "ChangeTracking" добавил контроль :

procedure TfMain.MemoSendTextChangeTracking(Sender: TObject);
const
  Offset = 20;
begin
  MemoSendText.ScrollTo(MemoSendText.Caret.Pos.X, MemoSendText.Caret.Pos.Y, True);

  if LayoutSendBox.Height < 100 then
    LayoutSendBox.Height := MemoSendText.ContentBounds.Height + Offset;
end;

"LayoutSendBox" - представляет собой контейнер, в котором находится само поле, у которого в параметре Align указанно "Client", то-есть при изменении высоты контейнера соответственно меняется высота самого поля. Функция Wordwrap у поля - включена, как и ShowScrollBars, т.е. если поле растягивается больше допустимого размера, появляется скрол бар и при дальнейшем вводе текста поле скролится вниз, при помощи процедуры "ScrollTo"

Проблема состоит в следующем: 
После того как поле TMemo достигает своего максимального размера и начинает опускаться вниз при продолжении ввода текста, скрол бар начинает прыгать после введения каждого символа, т.е. после ввода первого символа поднимается наверх на пару пикселей, так, что нижней части последней строчки становится не видно (хотя если проскролить поле вниз, нижняя часть отображается), а при вводе следующего символа всё становится на место. 

Может кто-нибудь подсказать в чём проблема? 
 

[Martifan]

Procedure ResizeMemo(AMemo: TMemo);
const
  Offset = 4; 
begin
  AMemo.Height := AMemo.ContentBounds.Height + Offset;
end;

[xenon54]

Я уже поднимал этот вопрос, но что-то с решениями как-то не сложилось

[Martifan]

я пользуюсь этим кодом он работать не знаю  )