[principiante22]

Aqui vengo de nuevo con mis novatadas , aquí el problema, quiero cambiar el nombre de una base de datos en access pero no me funciona, estos son mis codigos.

Código Delphi [-]
var fichero, urln, urlv:string        
begin
fichero:=ExtractFileDir (ParamStr(0))+'\BD\';
urlv:=fichero+combobox1.text; //en el combobox esta el nombre de la BD antigua
urln:=fichero+edit1.text+ExtractFileExt(urlv); //en el edit1 esta el nombre que quiero que tenga la nueva BD
if not fileexists(urln) then
   begin
      if renamefile(urlv, urln)
        then MessageDlg('La BD ha cambiado de nombre', mtinformation, [mbOK], 0)
        else MessageDlg('Se a producido un error al cambiar el nombre', mtwarning, [mbOK], 0);
    end
else
  MessageDlg('Ya existe el archivo', mtwarning, [mbOK], 0);
end;

Gracias desde ahora