uses  
DbiProcs;  
  
function GetDirByDatabase(Database: TDatabase): string;  
var  
pszDir: PChar;  
begin  
pszDir := StrAlloc(255);  
try  
DbiGetDirectory(Database.Handle, True, pszDir);  
Result := StrPas(pszDir);  
finally  
StrDispose(pszDir);  
end;  
end;