AdvSmoothListBox slow

VCL TMS VCL UI Pack
1

Hi, i need to fill a AdvSmoothListBox component with only 600 records, but is very slooow, can someone help me, please ...  my code:

  AdvSmoothListBox1.Sorted := False;
  AdvSmoothListBox1.Items.Clear;
  ADOTable1.DisableControls;
  ADOTable1.First;
  while not ADOTable1.Eof do
  begin
    with AdvSmoothListBox1.Items.Add do
    begin
      Enabled := True;
      Caption := ADOTable1Nombre.Value + ' - ' + ADOTable1Contacto.Value;
      CaptionFont.Size := 10;
      CaptionFont.Style := [fsBold];
      CaptionSelectedFont.Size := 10;
      CaptionSelectedFont.Style := [fsBold];
      ADOTable1.Next;
    end;
  end;
  AdvSmoothListBox1.Sorted := True;
  ADOTable1.EnableControls;
2

From tips & faqs : http://www.tmssoftware.com/site/advsmoothlistbox.asp?s=faq&show=301

please use BeginUpdate/EndUpdate
3

Perfect !  Thanks