Código Delphi [-] ExtractFilePath(Application.ExeName) + 'BasedeDatos';
ExtractFilePath(Application.ExeName) + 'BasedeDatos';