コールバックから Delphi VCLのCaptionを変更すると文字列などが乱れる

コールバックから呼ばれる関数内で、VCL(今回は Label )のCaptionを変更すると、表示が乱れる(フォントサイズや幅がおかしくなる)

スレッド内と同様に Synchronize 内からVCLへアクセスする

view plainprint?

1. TThread.Synchronize(nil,  
2.     procedure  
3.     begin  
4.             Label1.Caption := AFilename;  
5.     end);  

    TThread.Synchronize(nil,
        procedure
        begin
                Label1.Caption := AFilename;
        end);