Agregar quitar Items,subitmes con TListView :S

[JXJ]

Hola, ¿como agrego un subitem y mas subitems cuando se necesite
a un TListView. en tiempo de ejecución
Mediante Codigo en un boton. ?

// solo he logrado agregar un Item. con este codigo

ListView1.Items.Add.Caption:='OtroCorreo@hotmail.com' ;

{=============}
En una columna la izquierda tengo el item que logro crear con el
codigo de arriba y en la columna derecha quiero agregar
la descripción de la columna derecha.

Lo que quiero es poder agregar y quitar items y subitems.
en tiempo de ejecución.


Gracias por la atención.

[FDB]

Buenas!!

Aquí te pego un trozo de codigo de un codigo fuente de un codigo fuente escrito por manulon sobre un hospital. Creo que puedes encontrarlo en la seccion ejemplos de esta pagina..


procedure TForm3.InsertarClick(Sender: TObject);
var
Ficha: TPaciente; // Ficha es un registro TPaciente
Paciente: TListItem; // Elemento para introducir un nuevo paciente
i: Integer; // Variable para un bucle
begin
// Asignamos el los datos del paciente al Edit correspondiente
Ficha.Nombre := edNombre.Text;
Ficha.Edad := edEdad.Text;
Ficha.Telefono := edTelefono.Text;
with edNombre, edEdad, edTelefono do
begin
Close; // Cerramos la ventana
Paciente := Form2.Lista.Items.Add; // Añadimos el paciente
Paciente.Caption := Ficha.Nombre; // Aisgnamos el nombre introducido al paciente
i := Form2.Lista.Items.Count-1; // i lleva la ultima posicion
Form2.Lista.Items.Item[i].SubItems.Add(Ficha.Edad); // Añadimos un SubItem con la edad
Form2.Lista.Items.Item[i].SubItems.Add(Ficha.Telefono); // Añadimos otro SubItem con el telefono
Form2.Lista.Items.Item[i].SubItems.Add(IntToStr(i+1)); // Añadimos otro SubItem con el numero de orden
estado }
end;
end;


Saludos!

[JXJ]

Esta Interesante el codigo. y me agrado más el que hace un contador para agregar
numeración creciente por cada nuevo paciente,

GRacias por responder. :D