vertikale Scrollbar in einem Memo, wenn Feld voll ist

[F.W.]

Ich wollte auch die Scrollbar meiner TMemo automatisch ein-/ausblenden und habe mir dazu folgenden Code überlegt:

Delphi-Quellcode:

 if Memo1.Height <= (Memo1.Lines.Count+2) * abs(Memo1.Font.Height) then
    Memo1.ScrollBars := ssVertical else
    Memo1.ScrollBars := ssNone;

Anmerkungen:
Die +2 bei Memo.Lines.Count sollte in der Bedingung stehen, weil sonst die Scrollbar meist schon ausgeblendet wird, wenn die Memo noch zu klein ist.
abs(Font.Height) muss sein, da der Wert Height ja komischer Weise immer negatib ist. (Warum eigentlich?? )

Möge dieser Code den erleuchten, der in Zukunft noch darüber stolpert