Добавление группы в список TListView

   procedure AddToListView(LV: TListView; Par: array of string);
   var NI : TListItem; i: integer;
   begin
     NI := LV.Items.Add;
     NI.Caption := Par[Low(Par)];
     for i := 1 to (High(Par) - Low(Par)) do
       NI.SubItems.Append(Par[i]);
   end;


   Удаление элемента из листа TList.

   Достаточно универсальна, хотя требуется не так часто. 
   procedure RemovePtrFromList(L: TList; P: pointer);
   var i: integer;
   begin
     if not Assigned(L) then Exit;
     i := L.IndexOf(P);
     if i >= 0 then L.Delete(i);
   end;


   Добавить объект в список, если такого еще нет. 

   procedure IncludePtrToList(L: TList; P: pointer);
   var i: integer;
   begin
     if not Assigned(L) then Exit;
     i := L.IndexOf(P);
     if i < 0 then L.Add(P);
   end;
	             		

Источник: www.delphikingdom.ru