if not Session.IsAlias(ALIAS_APP) then with Session do
begin
ConfigMode := cmSession;
try
AddStandardAlias(ALIAS_APP, Ruta, 'PARADOX');
finally
ConfigMode := cmAll;
end;
end;
Database.AliasName := ALIAS_APP;
Database.TransIsolation := tiDirtyRead;
Database.Open;