Código Delphi [-] rutaBD := ExtractFilepath(Application.Exename)+ 'Base de datos\'+ loquequieras;
rutaBD := ExtractFilepath(Application.Exename)+ 'Base de datos\'+ loquequieras;