[Lazarus] Autosize not doing its job in Lazarus 2.2.4

[Timothy Groves]

If I set font sizes on controls using the following code:

   index := ComponentCount;
   while (index > 0) do begin
     dec (index);
     if (Components [index] is tControl) then
       TControl (Components [index]).Font.Size := dGlobal.FontSize;
   end;

then the form will not resize to match.  AutoSize is set in all the 
right places, but a form that consists only of a single label will still 
not resize.  No constraints are set, and if I change the font size at 
design time, the form will resize.  What am I doing wrong?