Ускорить удаление элементов из TListView

Code:

procedure AddNewListViewItems;

var

  oldViewStyle: TViewStyle;

begin

  odlViewStyle := ListView1.ViewStyle;

  ListView1.ViewStyle := vsList;

  ListView1.Items.Clear;

  { Add new Listitems here }

  { An dieser werden die neuen ListItems eingefugt }

  ListView1.ViewStyle := oldViewStyle;

end;