Инет подвёл.
Хорошо. Я вот так примерно пытаюсь делать.
Сначала вынужден видимо присвоить Aliase, чтобы иметь право его изменять.
Настройки Alias’а (псевдоним ‘MyDB’) в BDEAdmin.exe такие
Path='с:\dbf\'
ENABLE BCD = FALSE
DEFAULT DRIVER = Paradox

Определяю в одном модуле в implementation свою процедуру ChangeAlias (полностью содрал из delphi help),
которая, как я понял, выкидывает окошко с приглашением юзеру ввести новый путь к таблицам бд для данного
алиаса( с этим кодом не всё пока понял)
и в том же модуле в процедуре TForm1.FormCreate(Sender: TObject) вызываю процедуру ChangeAlias.

procedure ChangeAlias;

var
AParams: TStringList;
Dir: string;
begin
ifnot Session.IsAlias('MyDB') then
begin
ShowMessage('Alias MyAlias does not exist');
Exit;
end;
AParams := TStringList.Create;
try
// get the current PATH parameter
Session.GetAliasParams('MyDB',AParams);
Dir := Copy(AParams.Strings[0],6,255);
// get the new PATH parameter
if InputQuery('MyAlias Alias Path','Path:' ,Dir) then

begin
// Update the alias parameters
AParams.Clear;
AParams.Add('PATH=' + Dir);
Session.ModifyAlias('MyDB',AParams);
Session.SaveConfigFile;
end;
finally
AParams.Free;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ChangeAlias;
Database1.Close;
Database1.Params.Values['PATH']:= ExtractFilePath(ParamStr(0));
Database1.Open;
end;

tikitiki загрузи bde32.hlp задай поиск Alias или Env и посмотри примеры.

bas, спасибо. Я на самом деле не знал где искать... Смотрю Всех благ