[CFPA86]

Hola a todos nuevamente, !! Lo logré !! con esfuerzo lo logré muchas gracias a todos.
Este es mi codigo final

Código Delphi [-]
Procedure TForm1.ComboBox1Change(Sender:TObject);
 Begin

  DataModule1.TEmpresas.Active := False;
  DataModule1.TEmpresas.Close;
  DataModule1.Tempresas.DataBaseName := "";

  if (ComboBox1.Text = "Empresa1") then
   begin
     With Session Do
      Begin
         DeleteAlias('Bdempresas'):
         AddStandardAlias('Bdempresas','C:\empresa1\','Paradox');
                 
         Close;
         Open;

         SaveConfigFile;
      End;
   End;

  if (ComboBox1.Text = "Empresa2") then
   begin
     With Session Do
      Begin
         DeleteAlias('Bdempresas'):
         AddStandardAlias('Bdempresas','C:\empresa2\','Paradox');
                 
         Close;
         Open;

         SaveConfigFile;
      End;
   End;

  DataModule1.Tempresas.DataBaseName := "Bdempresas";
  DataModule1.TEmpresas.Active := True;
  DataModule1.TEmpresas.Open;

Como ven lo que ,e hacia falta era nada, abrir y cerrar la seccion asi como definir en el databese de la tabla el nuevo alias, muchas gracias nuevamente a todos por su colaboracion, aahhhh y disculpen por el codigo no se como subrayarlo.
Chao