vard : TDataBase; begin
d := TDataBase.Create(Application); d.DataBaseName := 'PRIV'; d.DriverName := 'STANDARD'; d.Params.Add('PATH='+Session.PrivateDir); d.Connected := True
; end
;
...теперь вы имеете псевдоним с именем 'PRIV', указывающий на частный каталог.