Подбор размера шрифта строки на опр. область в пикселях

[chertovich]

Здравствуйте.
Хочу динамический подобрать размер шрифта для строки под определенную область в пикселях.
Делаю при помощи методов

TextWidth() и TextHeight()

Для этого делаю цикл, например от 2 до 72, и использую значение на 1 меньшее, когда строка не помещается.

procedure TFormMain.GetFontSize(var Font: TFont; const Time: string;
  const AWidth, AHeigth: Integer);
var
  I: Integer;
begin
  for I := 2 to 72 do
  begin
    with PaintBox.Canvas do
    begin
      Font.Size := I;

      if (TextWidth(Time) > AWidth) or (TextHeight(Time) > AHeigth) then
      begin
        Font.Size := I - 1;
        Exit;
      end;
    end;
  end;
end;

Есть ли более производительные алгоритмы или методы, для решения этой задачи?

[Прик]

Можно такой механизм попытать:

PaintBox1.Canvas.Font.Size := -Round(PaintBox1.Height * 72 / PaintBox1.Canvas.Font.PixelsPerInch);

Работает. Правда, определение только по высоте. Наверное, можно сосватать определение размера и по высоте и по ширине