delphi - FileListBox OnComplete イベント

Question

FileListBox 内のファイルを反復処理し、最も長いファイル名を見つけて列幅を設定する必要があります。

私は現在使用しています

shFiles.Directory:=shFolders.Directory;
aWid:=0;
for i:=0 to shFiles.Items.Count-1 do
  if Length(shFiles.Items[i]) > aWid then
    aWid:=Length(shFiles.Items[i]);

それは私が必要とすることを行いますが、ファイルの数が多く、FileListBox 全体がいっぱいになる前に aWid プロセスが開始されると問題が発生します。

「OnComplete」のイベント、または FileListBox がすべてのファイルの ListBox へのロードを完了したことを知らせる何かが必要です。これにより、aWid for-next を実行できるようになります。

どうすればそれを行うことができますか？ありがとうございました。