Cria um alias em tempo de execução

Procedure ConfigAlias(AAlias, cDriver,APath: String);
var
Param: TStrings;
begin
Param := TStringList.Create;
try
// Obs. APath deve conter o nome do banco
// Ex. "C:Banco.gdb"
Param.Add(Format('SERVER NAME=', [APath]));
Session.AddAlias(AAlias, cDriver, Param);
finally
Param.Free;
end;
end;