Otr problema...error con el CopyFile

[Laurana]

Bueno pues tengo una función para crear una copia de seguridad de una BD Paradox7, y lógicamente utilizo el CopyFile...el código es el siguiente:

void __fastcall TfrmCopia::BitBtn1Click(TObject *Sender)
{
        AnsiString Caption="Selecciona la carpeta en la que quieres guardar la copia de seguridad";
        AnsiString Root="c:";
        AnsiString Directorio;
       if(SelectDirectory(Caption,Root,Directorio))
       {
                 AnsiString Archivo[15]={"AuxMesas.db","Camareros.db","ContenidoFactura.db","ContenidoMesa.db","Entradas.db","Familias.db","FormasPago.db","MesasFacturadas.db","Movimientos.db","Pagos.db","Productos.db","Prov_prod.db","Proveedores.db","Salidas.db","Tarjetas.db"};
                 AnsiString Origen,Destino;
                 Origen=ExtractFilePath(Forms::Application->ExeName);
                 Destino=Directorio;
                 if((Destino.Length())!=3)
                        Destino=Destino+"\\";
                 
                 for(int x=0;x<15;x++)
                 {
                        if(CopyFile((Origen+Archivo[x]).c_str(),(Destino+Archivo[x]).c_str(),false)==0)
                                MessageBox(Handle,"Error al copiar el archivo","Error",MB_ICONERROR);
                  }
        }
}

El problema es que siempre me da error al copiar el archivo, y no lo entiendo porque los path están bien (hice showmessages con Origen y Destno para comprobarlo), así que no sé que es lo que puede fallar