procedure TForm1.BitBtn1Click(Sender: TObject);
var
nItem: TListItem;
slDBpath: string;
sldb: TSQLiteDatabase;
sltb: TSQLIteTable;
sSQL: String;
n1,n2,n3,n4: String;
begin
slDBPath := ExtractFilepath(application.exename)
+ 'bd\dbdatos.db';
sldb := TSQLiteDatabase.Create(slDBPath);
nItem := ListView1.Items.Add;
nItem.Caption := DateToStr(DateTimePicker1.Date);
n1 := DateToStr(DateTimePicker1.Date);
nItem.SubItems.Add(ComboboxEx1.Text);
n2 := ComboboxEx1.Text;
nItem.SubItems.Add(edit1.Text);
n3 := edit1.Text;
nItem.SubItems.Add(edit2.Text);
n4 := edit2.Text;
sldb.BeginTransaction;
sSQL := 'INSERT INTO Datos VALUES (n1,n2,n3,n4);';
sldb.ExecSQL(sSQL);
sldb.Commit;
end;