conexion sqlite con mi aplicación

[jonydread]

ahora me dice No such column n1

Código Delphi [-]
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;
//begin a transaction
sldb.BeginTransaction;
//do the insert
sSQL := 'INSERT INTO Datos VALUES (n1,n2,n3,n4);';
sldb.ExecSQL(sSQL);
//end the transaction
sldb.Commit;
end;

saludos

[jonydread]

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);
//begin a transaction
sldb.BeginTransaction;
//do the insert
sSQL := 'INSERT INTO Datos VALUES (' +QuotedStr(id1)+',' +QuotedStr(id2)+',' +QuotedStr(id3)+',' +QuotedStr(id4)+');';
sldb.ExecSQL(sSQL);
//end the transaction
sldb.Commit;
end

end;