me respondo y ha funcionado por lo tanto dejo un codigo funcional si sirve a alguien
Código Delphi
[-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
nItem: TListItem;
slDBpath: string;
sldb: TSQLiteDatabase;
sltb: TSQLIteTable;
sSQL: String;
id1,id2,id3,id4: String;
begin
nItem := ListView1.Items.Add;
nItem.Caption := DateToStr(DateTimePicker1.Date);
id1 := DateToStr(DateTimePicker1.Date);
nItem.SubItems.Add(ComboboxEx1.Text);
id2 := ComboboxEx1.Text;
nItem.SubItems.Add(edit1.Text);
id3 := edit1.Text;
nItem.SubItems.Add(edit2.Text);
id4 := edit2.Text;
begin
slDBPath := ExtractFilepath(application.exename)
+ 'bd\dbdatos.db';
sldb := TSQLiteDatabase.Create(slDBPath);
sldb.BeginTransaction;
sSQL := 'INSERT INTO Datos VALUES (' +QuotedStr(id1)+',' +QuotedStr(id2)+',' +QuotedStr(id3)+',' +QuotedStr(id4)+');';
sldb.ExecSQL(sSQL);
sldb.Commit;
end
end;