Псевдоним на лету

Попробуйте это:

type
  TDataMod = class(TDataModule)
    Database: TDatabase;
  public
    procedure TempAlias(NewAlias, NewDir: string);
  end;

procedure TDataMod.TempAlias(NewAlias, NewDir: string);
begin
  with Session do
    if not IsAlias(NewAlias) then
    begin
      ConfigMode := cmSession; (* NewAlias будет ВРЕМЕННЫМ *)
      try
        AddStandardAlias(NewAlias, NewDir, 'PARADOX');
        Database.Close;
        Database.AliasName := NewAlias;
        Database.Open;
      finally
        ConfigMode := cmAll;
      end;
    end;
end;

Комментарии:

a) Поместите компонент Database на форму DataModule;
b) Задайте свойству DatabaseName имя базы данных, например, 'TempDB';
c) Задайте свойству DatabaseName компонента TTable значение = 'TempDB'
d) Для получения дополнительной информации ознакомьтесь с примером MastApp, поставляемым вместе с D2.

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 364 • TDictionary Custom Sort 3 501 • Fast Watermark Sources 3 246 • 3D Designer 5 008 • Sik Screen Capture 3 498 • Patch Maker 3 703 • Айболит (remote control) 3 906 • ListBox Drag & Drop 3 166 • Доска для игры Реверси 82 929 • Графические эффекты 4 104 • Рисование по маске 3 397 • Перетаскивание изображений 2 769 • Canvas Drawing 2 920 • Рисование Луны 2 725 • Поворот изображения 2 340 • Рисование стержней 2 228 • Paint on Shape 1 627 • Генератор кроссвордов 2 311 • Головоломка Paletto 1 824 • Теорема Монжа об окружностях 2 330 • Пазл Numbrix 1 720 • Заборы и коммивояжеры 2 094 • Игра HIP 1 315 • Игра Go (Го) 1 263 • Симулятор лифта 1 512 • Программа укладки плитки 1 259 • Генератор лабиринта 1 585 • Проверка числового ввода 1 404 • HEX View 1 539 • Физический маятник 1 389