Código Delphi [-]ListView1.Items.BeginUpdate; // aqui añades todos los items ListView1.Items.EndUpdate;
ListView1.Items.BeginUpdate; // aqui añades todos los items ListView1.Items.EndUpdate;