DBGrid1
DBNavigator1
Query1
DataSource1

Настройка-----------
DataSource1
AutoEdit=true
DataSet=Query1
Enabled=true
Name=DataSource1
Tag=0

DBGrid1
DataSource=DataSource1

String dr=GetCurrentDir()+"\\";
//Query1->DatabaseName="BAZA.db" ;
Query1->Close();

// ?enoei e?aie i?aauaouee SQL cai?in

Query1->SQL->Clear();

// Iacia?aai SQL naienoao Query1 cia?aiea oaenoa a Memo1.

Query1->SQL->Add("SELECT * FROM \""+dr+"DB.dbf\"");
ComboBox1->Text="SELECT * FROM \""+dr+"DB.dbf\"";

// Auiieiyai SQL cai?in e ioe?uaaai Query1

Query1->Open();

Query1->Active=true;

Edit1->Text="SELECT * FROM \""+dr+"DB.dbf\"";

****************************************************************