У меня следующая проблема - я пытаюсь получить список алиасов всех БД из BDE. Для этого я пытаюсь использовать DbiOpenDataBaseList. Беру пример из help'a по BDE,

procedure fDbiOpenDatabaseList(DatabaseList: TStringList);

var
TmpCursor: hDbiCur;
Database: DBDesc;
rslt: DbiResult;
begin
DatabaseList.Clear;
Check(DbiOpenDatabaseList(TmpCursor));
repeat
rslt:= DbiGetNextRecord(TmpCursor, dbiNOLOCK, @Database, nil);
if (rslt <> DBIERR_EOF) then begin
DatabaseList.Add(StrPas(Database.szName)
+ ' - ' + StrPas(Database.szPhyName)
+ ' - ' + StrPas(Database.szDbType))
end;
until (rslt <> DBIERR_NONE);

Check(DbiCloseCursor(TmpCursor));
end;

компилирую, запускаю, но он не проходит. Delphi 5 ругается следующим образом: An error occurred while attempting to initialize the Borland Database Engine (error $2A06).