Perdonad por haberos hecho perder el tiempo.... debería haber investigado un poco más en la ayuda del BDE antes de molestaros, aquí está la solución:
Código Delphi
[-]
var
sID : String;
SFolder : pItemIDList;
SpecialPath : Array[0..MAX_PATH] Of Char;
begin
SHGetSpecialFolderLocation(Form1.Handle, CSIDL_PERSONAL, SFolder);
SHGetPathFromIDList(SFolder, SpecialPath);
Database1.Session.PrivateDir := SpecialPath;
(Hay que hacer una llamada a la libreria ShlObj)
Saludos