🚀 go-pugleaf

I have added a tdabase component and set it up with the same name as I was
using for an alias. Double clicked on it and setup as using default
settings. It has got past the alias not found error, but now i get:

file or directory does not exist
file:pdoxusers.net

I'm seem to be going round in circles, and they arnt decreasing! :(  Can
anyone point me in the right direction?

This is the code in my datamodule's oncreate event:

begin
session.PrivateDir:='C:\windows\temp';
//config file is written and created by install program
Ini := TIniFile.Create('cmsconfig.ini');
     try
     {get the dirs from the ini file}
     netdir:= Ini.ReadString('Dir', 'networkDir', '');
     sDataDir:=ini.readstring('Dir','databaseDir','');
     finally
     Ini.Free;
     end;

//sDataDir comes from ini file above
//modify the standard alias created by tdatabase so path is correct
database1.Params.Clear;
database1.Params.Add(sDataDir);

netdirmsg:='Cannot create ' +netdir;
//create dir for pdoxuser.lck files
if not DirectoryExists(netdir) then
    try CreateDir(netdir)
    except raise Exception.Create(netdirmsg);
    end;

// set the file path
session.NetFileDir:=netdir;
// now change registry so that local share is true
with tregistry.create do
        begin
        try
        RootKey:=HKEY_LOCAL_MACHINE;
        if not openKey('SOFTWARE\Borland\Database
Engine\Settings\SYSTEM\INIT',false) then
                raise Exception.createfmt('Error setting local share
true',['BDE']);
        writeString('LOCAL SHARE','TRUE');
        finally
                free;
        end;
        end;
//activate tables and queries at run time
query1.Active:=true;
query2.Active:=true;
tblCWmarks.Active:=true;
qryFBAll.Active:=true;
qryBriefCase.Active:=true;
qryTotals.Active:=true;
etc