Сообщение от :
//Инициализация BDE и создание временной базы DialerDB.
procedure StartBDE();
begin
DbiInit(nil); //Инициализируем BDE
//Добавляем временный алиас
DbiAddAlias(nil,'DialerDB',szDBASE,PChar('path: '+TmpPath),True);
//Открываем базу по имени
DbiOpenDataBase('DialerDB',szDBASE,dbiREADWRITE,db iOPENSHARED,nil,0,nil,nil, hDB);
DbiSetDirectory(hDB,PChar(TmpPath));
end;

//Уничтожение временной базы DialerDB и прекращение работы с BDE.
procedure StopBDE();
begin
DbiCloseDataBase(hDB); //Закрываем базу
DbiDeleteAlias(nil,'DialerDB'); //Удаляем Алиас
DBIExit(); //Прекращаем работу с BDE
end;