delphi - 大きなリストで Delphi FMX TListBox が遅くなる

Question

2,000 個の名前を FMX TListBox にロードしていますが、時間がかかりすぎます (35 秒以上など)。

テストコードは次のとおりです。

procedure TDocWindow.DEBUGAddLotsOfStringsToList;
var
  theTimeAtStart: Integer;
  J: Integer;

begin
  ListBox1.Clear;

  theTimeAtStart := TThread.GetTickCount;

  for J := 1 to 2200 do
    begin
      ListBox1.Items.Add(j.toString);
    end;

  ShowMessage('There were ' + J.ToString + ' strings added to the list in ' + (TThread.GetTickCount - theTimeAtStart).ToString + ' milliseconds.');
end;

数千の文字列に対して TListBox が遅すぎる原因はありますか?