var  
d : TDatabase;  
begin  
d := TDatabase.Create(Application);  
d.DataBaseName := ′TEST_ALIAS′;  
d.DriverName := ′STANDARD′;  
d.Params.Add(′PATH=C:DBDEMOS′);  
d.Connected := True;  
end;