Alias en tiempo de ejecución

[Max_E.]

hola a todos:

quierea saber si hay alguna manera de dirijir el alias en tiempo de ejecucion es decir:

Antes de hacer correr una aplicacion que utilice base de datos, se requiere dar la ubicacion del archibo *.DB (el alias) con el ''BDE arministrator'' y esa direccion se guardá en la computadora, el problema ocurre cuando llevo la aplicacion a otra computadora que no tenga el BDE administrator, y lo que quiero hacer es dar el alias al momento de abrir la aplicacion (en el Tform1.FromCreate)

Código Delphi [-]
Procedure Tform1.Formcreate(Sender: TObject);
begin
try
{ 1º intentar abrir el alias }
  query1.DatabaseName := 'MiDemos';
except
  on EDatabaseError do
    {si esto falla, intentar dar la ubicacion del archivo *.DB }
    query1.DatabaseName := 'c:\delphi\demos\database';
end;

o algo asi..............

Gracias de ante mano por la yuda que puedan darme.