C++ Buider: TMemo автоматически менять высоту в зависимости от количества строк

void __fastcall TForm1::Memo1Change(TObject *Sender)

{

    Memo1->Height = -1 * Memo1->Font->Height * (Memo1->Lines->Count+1) + 10;

}