[[sitrico]]

Solo para completar la idea esta es el código para crear los alias

Procedure CrearAlias(ElAlias:String);
Begin
// Si no existe crearlo
If not session.IsAlias(ElAlias) Then
   Begin
   Try
      Session.AddStandardAlias(ElAlias,Dir,'PARADOX'); // segun el caso
      Session.SaveConfigFile;  // Para hacerlo persistente 
   except
      MessageDlg('Error creando el Alias: '+ElAlias,mtError,[mbOk],0);
      Exit;
      End;
   End;
End;