Foros Club Delphi - Otr problema...error con el CopyFile

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:

Código:

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 :confused: