Всем доброго времени суток!

Необходимо настроить ScrollBar и Memo так, чтобы размер ползунка менялся в зависимости от количества содержимого Memo и чтобы можно было скроллить с помощью колёсика мышки.

В инете нашёл этот код:

int Value = 0;
void __fastcall TForm1::ScrollBar1Change(TObject *Sender)
{
  if (ScrollBar1 -> Position > Value) {
  Memo1->Perform(EM_SCROLL,SB_LINEDOWN,0) ;

} else {
  Memo1->Perform(EM_SCROLL,SB_LINEUP,0);
}

  Value = ScrollBar1->Position;

}

Данный код не меняет размеров ползунка и работает не всегда корректно, так как ползунок уже может находиться внизу, а часть текста так и остаться непролистанной.
Прошу помочь разобраться с этой проблемой.