var
d : TDataBase;
begin
d := TDataBase.Create(Application);
d.DataBaseName := ′PRIV′;
d.DriverName := ′STANDARD′;
d.Params.Add(′PATH=′+Session.PrivateDir);
d.Connected := True;
end; 

Получить ссылку на материал