Roman, solo hay un detalle que se me escapa, en esta línea
Código Delphi
[-]
Database.Session.NetFileDir := ExpandFileName(Database.Directory + '..');
el Database.Directory, lo asignas tú en código, en diseño....
Yo primero confguro el Session y despues el Tdabase, por tanto, esa propiedad me devuelve la cadena vacia al consultarla
Saludos