debug autoresize label(Delphi VCL)

Hello, everyone I need someone to debug an existed VCL/DELPHI autosize label(Please refer to the attached vcl). the vcl does not work correctly in runtime. When you change the size of the label in runtime, it always can not display all fonts/texts, sometimes can not display the correct font style etc. I hope you can fix the bug, but if you have your solution for 'auto size label vcl', welcome also. Thanks Ken