Código Delphi [-]
carpeta:=DBGetPathAlias(nombre); //ruta del servidor.

Código Delphi [-]
if not Session.IsAlias(fprincipal.nombreAlias) then
begin
  Session.Config := cmAll;
  Session.AddStandardAlias(fprincipal.nombreAlias, 'ruta de la base de datos');
  Session.SaveConfig; // guardar el alias en windows.
end;

Código Delphi [-]
Session.PrivateDir := ruta-del-ejecutable-del-cliente + 'PRIV';

Código Delphi [-]
Session.PrivateDir := \\Servidor\ruta-del-ejecutable-que-existe-en-el-servidor + 'PRIV';

Código Delphi [-]
Session.PrivateDir := ruta-del-ejecutable-del-cliente + 'PRIV';

Código Delphi [-]

// Tendrás que crear un FormXX que tenga un Memo dentro.
procedure TFPrincipal.MensajeAdd(VerFecha: Boolean; str: String);
begin
  if VerFecha then
    FormXX.Memo1.Add(datetimetostr(now) + ' >> ' + str)
  else
    FormXX.Memo1.Add(str); 

end;

Código Delphi [-]

type
  TParadoxConfig = record
    NetFileDir:    String[255];     
    PrivateDir:    String[255];
    DatabaseDir:   String[255];
    Alias:         String[20];
  end;

  Tglobal = record
    ModoServidor:Boolean;
    DB:         TParadoxConfig;
  end;
var
  GL: TGlobal;
begin

// modifica esto con tus valores
  gl.DB.NetFileDir    := ini.ReadString('Paradox', 'NetFileDir', '\\');
  gl.DB.PrivateDir    := ini.ReadString('Paradox', 'PrivateDir', GetTmpDir);
  gl.DB.DatabaseDir   := ini.ReadString('Paradox', 'DatabaseDir', '\\');
  gl.DB.Alias         := ini.ReadString('Paradox', 'Alias', 'prog1');
  GL.ModoServidor := ini.ReadInteger('Settings', 'RGClient', 1) = 0;


  if GL.ModoServidor then // SERVIDOR
    LocalShareTRUE
  else   // es un ordenador cliente
    LocalShareFALSE;

  if dtbppal.Connected then  // si se queda abierto en diseño, nos dará problemas
    dtbppal.Close;

  if DtbPPal.Session.Active then // si se queda abierto en diseño, nos dará problemas
    DtbPPal.Session.Close;

  // DONE -c MOTOR BD : borrados los *.LCK

//  borraarchivos([lck, net]);

  //_________________________ SESSION Y ALIAS____________________________________
  with DtbPPal.Session do
  begin
    MensajeAdd(true, '2   Alias');
    if IsAlias(gl.DB.Alias) then  // un string que es el nombre del alias
      MensajeAdd(true, '2.1 Usando alias existente: ' + gl.DB.Alias)
    else
    begin
      MensajeAdd(true, '2.1 Creando Alias: ' + gl.DB.Alias + ' para la carpeta: ' +
        gl.DB.DatabaseDir);
      AddStandardAlias(gl.DB.Alias, gl.DB.DatabaseDir, 'Paradox');
    end;


      MensajeAdd(true, '1   Configurar la sesion');
      NetFileDir := GL.DB.NetFileDir; // un string del tipo '\\nombreservidor\prog\net'
      MensajeAdd(true, '1.1 Usando Carpeta NET: ' + NetFileDir);
      MensajeAdd(true, '1.2 Usando carpeta temporal: ' + gl.DB.PrivateDir);
      PrivateDir := gl.DB.PrivateDir; // un string del tipo 'c:\temp'
      MensajeAdd(true, '1.3 Modo Sesion: cmAll');
      ConfigMode := cmAll;
      MensajeAdd(true, '1.4 Modo servidor: ' + BoolToStrSP(GL.ModoServidor));  // Gl.ModoServidor es un Boolean, me indica si está o no en el servidor.
      OnPassword := MiSessionPassword; // para la contraseña de la BBDD ;)

  end;//with session
      //_________________________ SESSION _______________________________________
//_________________________ DATABASE __________________________________________
  with dtbppal do
      MensajeAdd(true, '3   Configurar Base de datos:');
      DatabaseName := gl.DB.DatabaseDir; // un string del tipo '\\nombreservidor\prog\datos'
      MensajeAdd(true, '3.1 Asignando Controlador');
      //    DriverName:= 'STANDARD';
      MensajeAdd(true, '3.2 Carpeta de Base de Datos: ' + GL.DB.DatabaseDir);
      MensajeAdd(true, '3.3 Asignando parámetros de Base de Datos (dtbppal) ');
      Params.Clear;
      params.Add('PATH=' + DatabaseName);
      MensajeAdd(True, 'PATH = ' + DatabaseName);
      params.Add('DEFAULT DRIVER=PARADOX');
      params.Add('ENABLE BCD=FALSE');

  MensajeAdd(true, '4   Alias: ' + gl.DB.Alias);
  MensajeAdd(true, '4.1 Alias asignado');
  //_________________________TDATABASE_________________________________________FIN

  DtbPPal.Session.Open;
  MensajeAdd(true, '5   Sesion Activa');
  DtbPPal.Connected := True;

{
El siguiente código asigna el Alias a todas las tablas y Querys que uso
De esta forma si en tiempo de ejecución, se crea un Alias nuevo, 
se configura todo el sistema.
}
    for i := 0 to pred(ComponentCount) do
      if (components[i] is TTable) then
        TTable(components[i]).DatabaseName := GL.DB.Alias
      else if (components[i] is TQuery) then
        TQuery(components[i]).DatabaseName := GL.DB.Alias;


    MensajeAdd(true, '6 **Conectado a Base de Datos**');

// AHORA FALTA ABRIR LAS TABLAS EN EL ORDEN CORRECTO según la
// relación Maestro - Detalle.