[NALOGA][Dephi]večanje memo-ta

Kako bi naredil nek memo, kamor bi vpisoval text, da bi bil na začetku majhen, recimo height 60, potem, ko bi pa začel noter pisat, bi se pa širil do height 200. Ko bi dosegel to mejo bi se pokazal scrollbar in bi pol scrolov.
mel bi eno funkcijo, tako nasplošno, da bi potem elemente samo skliceval na to funkcijo, da ne bi blo preveč copy/paste-anja.
upam da štekate[:)] Pa rabu bi čimprej[:8)]

sm naredu nekak tkole pa neki ne štima
function
begin
Result := AMemo.Lines.Count*(AMemo.Font.Height+1)+2;
if Result < 60 then
Result := 60
else if Result>200 then
Result := 200;
end;

se mi zdi je "AMemo.Font.Height+1" neki narobe
naj bi blo število vrstic*faktor+2
ka pa vem

edit:
sm uštimov, dal sm AMemo.Font.size+7, pa se pol spremeni ko stisnem tab, da grem na nasledn element

ja sj sm na ondatachange. spremeni se pol če km drgm klikneš. kuj se pa ne