Author: Tomas Rutkauskas

Fix a small bug in TLabel.AutoSize 

Answer:

If you switch between small fonts and large fonts, your labels' sizes will not be 
fixed. AutoSize works only when you change the label's caption or when you switch 
the property AutoSize on.

The following piece of code could be run e.g. in FormCreate to fix the sizes. 

1      
2   for I := 0 to ComponentCount - 1 do
3     if Components[I] is TLabel then
4       with TLabel(Components[I]) do
5         if AutoSize = True then
6         begin
7           AutoSize := False;
8           AutoSize := True;
9         end;