procedure TForm1.FormCreate(Sender: TObject);
begin
SQLite3Connection1.DatabaseName := "c:\db\Nuovo_DB.db" ;
SQLite3Connection1.Connected := True ;
SQLTransaction1.Database := SQLite3Connection1;
SQLTransaction1.Active := True ;
SQLQuery1.Database := SQLite3Connection1;
SQLQuery1.Transaction := SQLTransaction1;
SQLQuery1.SQL.Text := 'Select * From TableName Order By FieldName1';
SQLQuery1.Active := true ;
// -> doubleclick on SQLQuery1 component
// -> click on + sign to add tablefields
// just in case you use dbware components
DataSource1.Dataset := SQLQuery1;
DBEdit1.DataSource := DataSource1;
DBEdit1.DataField := 'FieldTestName';
end;