Redireccionar Base de Datos

[CFPA86]

No me saca error en particular, aun desconociendo Plimpiar, mas bien creo yo que puede ser desconocimiento del código (Codigo GataSoft).De todas formas les dire que hago, cree un aplicativo aparte que simulara lo que pretendo, tiene un DataModule conteniendo una tabla (común para ambas empresas), un combobox para empresa1 y empresa2, un Dbgrid que me lista los datos, sea de empresa1 o empresa2, aclaro en el registro del sistema tengo una vble que almacena la ruta de la B.D., corro el aplicativo y me lista los datos de la empresa1, elijo la empresa2 para que me liste estos datos y me sigue mostrando los de la empresa1, Nuevamente corro el aplicativo y ahi si me muestra los datos de la empresa2.

Código Delphi [-]
var
  vDriverParams: TStringList;

....
Procedure TForm1.FormActivate(Sender:TObject);
 begin
   vDriverParams := TStringList.Create;
 end;

Procedure TForm1.ComboBox1Change(Sender:TObject);
 Begin

  DataModule1.TEmpresas.Active := False;
  DataModule1.TEmpresas.Close;

  if (ComboBox1.Text = "Empresa1") then
   begin
     With Session Do
      Begin
         DeleteAlias('Bdempresas'):
         AddStandardAlias('Bdempresas','C:\empresa1\','Paradox');
         vDriverParams.Add('NetDir=C:\empresa1\');
         ModifyDrive('Paradox',vDriverParams);
         SaveConfigFile;
      End;
   End;

  if (ComboBox1.Text = "Empresa2") then
   begin
     With Session Do
      Begin
         DeleteAlias('Bdempresas'):
         AddStandardAlias('Bdempresas','C:\empresa2\','Paradox');
         vDriverParams.Add('NetDir=C:\empresa2\');
         ModifyDrive('Paradox',vDriverParams);
         SaveConfigFile;
      End;
   End;

  DataModule1.TEmpresas.Active := True;
  DataModule1.TEmpresas.Open;

Les agradezco la ayuda que me puedan ofrece y me disculpan por el código.