[cocute]

creo que debe de ser la ponerle Free eliminas el DataToXLS1,
asi que si lo ejecutas de nuevo deberias volver a crearlo,

prueba a poner primero
DataToXLS1.create;
o si no a eliminar la linea DataToxls1.Free;