ScaleBy и Canvas

[chertovich]

Пишу редактор таблиц. Хочу сделать маштабирование редактора (где находятся панели, которые отображат таблицы). Маштаблирование делаю при помощи метода ScaleBy самого редактора (на котором расположены панели). В результате чего, панели увеличиваются, а текст на панелях нет.
Хотелось бы спросить, как правильно выводить текст на канву, чтобы при увеличиении (уменьшении) размеров панелей, текст имел больший (мешьний) размер текста соотвественно.
Сам компонент состоит из палени, на которой размещены еще 2 панели. Возможно я совершил где то ошибку:

constructor TPanelEdit.Create;
begin
  inherited;
  ParentBackground := False;
  ColorBackground := FColorBackground;
  ColorText := clWhite;
  Color := clWhite;
  DoubleBuffered := True;

  if not Assigned(FPanelNameTable) then
  begin
    FPanelNameTable := TPanelCanvas.Create(Self);
    with FPanelNameTable do
    begin
      Parent := Self;
      DoubleBuffered := True;
      Align := alTop;
      Height := 20;
      BevelOuter := bvNone;
      Font.Height := 12;
      Constraints.MaxHeight := 20;
      Constraints.MinHeight := 20;
      ParentBackground := False;
      Color := clWhite;

      // События
      OnMouseDown := Down;
      OnMouseUp := Up;
      OnMouseMove := Move;
    end;
  end;

  if not Assigned(FPanelItems) then
  begin
    FPanelItems := TPanelCanvas.Create(Self);
    with FPanelItems do
    begin
      Top := 21;
      Parent := Self;
      DoubleBuffered := True;
      Align := alClient;
      BevelOuter := bvNone;
      BorderStyle := bsSingle;
      ParentBackground := False;
      Color := FColorBackground;

      // События
      OnMouseDown := Down;
      OnMouseUp := Up;
      OnMouseMove := Move;
    end;

  end;
end;

где FPanelItems, FPanelNameTable

  TPanelCanvas = class(TPanel)
  public
    property Canvas;
    property OnMouseMove;
    property OnMouseUp;
    property OnMouseDown;
  end;