/*
Insert, Selected, Index example
The following example inserts a list item after the selected item in the list view.
*/ 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TListItem *InsertItem = 
    ListView1->Items->Insert(ListView1->Selected->Index);
  InsertItem->Caption = Edit1->Text;
} 
