Alias en Runtime.

Ojalá esto te sirva ... lo obtuve de: http://www.delphifaq.com/faq/delphi/database/f39.shtml
uses
DBIProcs, DBITypes;
procedure AddBDEAlias(sAliasName, sAliasPath, sDBDriver: string);
var
h : hDBISes;
begin
DBIInit(nil);
DBIStartSession('dummy', h, '');
DBIAddAlias(nil, PChar(sAliasName), PChar(sDBDriver),
PChar('PATH:' + sAliasPath), True );
DBICloseSession(h);
DBIExit;
end;
{ Sample call to create an alias called WORK_DATA that }
{ points to the C:\WORK\DATA directory and uses the }
{ DBASE driver as the default database driver: }
AddBDEAlias('WORK_DATA', 'C:\WORK\DATA', 'DBASE');
El cambio lo tienes que hacer en la última línea donde cambias el nombre del alias la dirección y el driver.

Los alias son almacenados en el fichero IDAPI. CFG, y modificarlos ahí no es muy buena idea, sin embargo, podemos necesitar un alias 'temporal' en nuestra aplicación. Este truco te enseña como hacer uno.
Delphi crea un objeto TSession automáticamente, (Session) siempre que utilices alguna database en tu aplicación. Tan sólo tendremos que utilizarlo.
Usaremos el método AddStandardAlias para crear el alias:
procedure TForm1.Button1Click(Sender: TObject);
begin
Session.AddStandardAlias('AliasName','c:\Patch\','DBASE');
end;
Los parámetros del método son:
procedure AddStandardAlias(const Name, Path, DefaultDriver: string);
# Name: Nombre del alias
# Path: Pah del Alias
# DefaultDriver: Driver a utilizar (Paradox, DBASE, o ASCIIDRV)
Bueno este es un ejemplo para otras base de datos, nunca he calado con MSSQL, supongo que solo le asignas en el default value el valor para MSSQL.