delphi - QuickReport で実際の TQRMemo の高さを計算する

Question

QuickReport に異なるフォントのメモがいくつかあります。今、私はすべての最下点を知りたいです（以下の形状を設定するため）。どのように？行数 (aMemo.ParentReport.TextHeight(aMemo.Font, 'W') * aMemo.Lines.Count) ごとに複数の TextHeight を計算すると、結果が正しくありません。一部のフォントの形状が高すぎるか低すぎます。