ListView Problem...

Jeg bruger denne kode til at tilføje items til min ListView...

i = i + 1
ListView1.ListItems.Add(i) = Text4.Text
ListView1.ListItems(i).SubItems(1) = ObjRec("ArticleId")
ListView1.ListItems(i).SubItems(2) = DataCombo1.BoundText
ListView1.ListItems(i).SubItems(3) = DataCombo2.BoundText
ListView1.ListItems(i).SubItems(4) = MaskEdBox1.FormattedText
ListView1.ListItems(i).SubItems(5) = Text2.Text

og denne til at fjerne det valgte item:
ListView1.ListItems.Remove (ListView1.SelectedItem.Index)

Men efter jeg har fjernet et item kan jeg ikke tilføje flere - får fejlmedelsen "Index out of Bounds"...

Hvordan får jeg det til at virke ???