Código Delphi [-]ShowMessage(ExtractFilename(IbDatabase.DatabaseName));
ShowMessage(ExtractFilename(IbDatabase.DatabaseName));