Размер шрифта под размер высоты

Dimon2011

У Мемо задана фиксированная высота. Как сделать так, чтоб размер шрифта менялся в зависимости от длины текста без перекрытия и смещения Мемо?

gpi

procedure Memo1OnAfterData(Sender: TfrxComponent);
begin
     Memo1.Font.Size:=10;       
     if Memo1.CalcWidth>Memo1.Width-Memo1.GapX*2 then
       Memo1.Font.Size:=Trunc(Memo1.Font.Size*((Memo1.Width-Memo1.GapX*2)/Memo1.CalcWidth));  
end;