{
Insert, Selected, Index example
The following example inserts a list item after the selected item in the list view.
} 
procedure TForm1.Button1Click(Sender: TObject);
var InsertItem : TListItem;
begin
  with ListView1 do
    InsertItem := Items.Insert(Selected.Index);
  InsertItem.Caption := Edit1.Text;
end; 
