Pasar Datos de un Listview a un tabla

[frholguin]

Buenas noches, me han pedido algo en el trabajo y es que esporte unos datos de excel a una tabla para generar un reporte X, ya hice la parte de hala la informacion, las puse un listview, lo que me anda faltando es como puedo pasar esos datos del listview a una tabla o una base de datos para despues poder consultar. aqui dejo el codigo que use.

Código Delphi [-]
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  {listview1.Clear; }
  {;}
  if OpenDialog1.Execute then
    Excel.Workbooks.Open(ExtractFilePath(Application.ExeName)+ ExtractFileName(OpenDialog1.FileName),
    EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
    EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
    EmptyParam, EmptyParam, EmptyParam, EmptyParam,0 );
  Hoja := Excel.Worksheets.Item[1] as _WorkSheet;
  i := 12;
  si := IntToStr( i );
  repeat
    with ListView1.Items.Add do
    begin
      SubItems.Add( Hoja.Range['B'+si,'B'+si].value2 ); // linea
      SubItems.Add( Hoja.Range['C'+si,'C'+si].Value2 ); // rnc
      SubItems.Add( Hoja.Range['D'+si,'D'+si].Value2 ); // tipo id
      SubItems.Add( Hoja.Range['E'+si,'E'+si].Value2 ); // tipo servicio
      SubItems.Add( Hoja.Range['F'+si,'F'+si].Value2 );
      SubItems.Add( Hoja.Range['G'+si,'G'+si].Value2 );
      SubItems.Add( Hoja.Range['H'+si,'H'+si].Value2 );
      SubItems.Add( Hoja.Range['I'+si,'I'+si].Value2 );
      SubItems.Add( Hoja.Range['J'+si,'J'+si].Value2 );
      SubItems.Add( Hoja.Range['K'+si,'K'+si].Value2 );
      SubItems.Add( Hoja.Range['L'+si,'L'+si].Value2 );
      SubItems.Add( Hoja.Range['M'+si,'M'+si].Value2 );
    end;
    Inc( i );
    si := IntToStr( i );
  until ( VarType( Excel.Range['B'+si,'B'+si].Value2) = VarEmpty );
  Excel.Workbooks.Close( 0 );
end;

gracias de ante mano.