Corrigindo um pequeno bug em TLabel.AutoSize

Se você mudar de fontes pequenas para fontes grandes, os tamanhos de seus rótulos não serão mudados. AutoSize só funcionará quando você mudar o caption do rótulo ou quando você acessar a propriedade AutoSize.

O seguinte código pode ser executado no evento FormCreate para corrigir os tamanhos.

for I := 0 to ComponentCount -1 do

if Components[I] is TLabel then

With TLabel(Components[I]) do

if AutoSize = True then

begin

AutoSize := False;

AutoSize := True;

end;