ListView y sus campos !!!

[Ledian_Fdez]

Hola amigo de este foro.

Tengo un ListVehic (TListView) que contiene 4 columnas, estas son:

ListVehic.Columns[0].Caption := 'Chapa'
ListVehic.Columns[1].Caption := 'Fecha'
ListVehic.Columns[2].Caption := 'Tipo'
ListVehic.Columns[3].Caption := 'Km'

ListVehic.RowSelect := true

Quisiera que en el evento SelectItem guardar en variables según lo seleccionado para Chapa, Fecha, y Km.

La chapa se guarda sin problema.
En la Fecha se me guarda todo los SubItems. (solo quiero guardar el contenido de la fecha)
Y en el Tipo ni siquiera se como podría guardarlo.

Aquí esta el código.

Código Delphi [-]
procedure TRegistroForm.ListVehicSelectItem(Sender: TObject;
  Item: TListItem; Selected: Boolean);
begin
 if Selected then
   begin
//Guardo la chapa
     TextCH := Item.Caption;
// Quiero guardar el contenido seleccionado de la columna Fecha
     TextFecha := Item.SubItems.Text;
// Quiero guardar el contenido seleccionado de la columna Tipo
     //TextTipo := ?
   end;
end;

En espera de su ayuda,
un Delphiano.

Salu2,
Gracias.