Problemas al exportar a excel con FireSoft

[[Espartaco]]

El mensaje de error es que no puede crear el archivo.

Por otro lado no sé a qué os referís con lo de unidireccional, a lo mejor sé lo que es pero dicho así no sé a qué se refiere. Os agradecería si pudierais explicarme un poco.

Lo que sí he descubierto tras varios intentos son dos cosas:

- Si realizo la operación de exportar desde otra ficha nueva, empieza a funcionar bien hasta que a partir de un momento determinado empieza a fallar otra vez. No sé en qué momento exactamente.

- Yo utilizo otra ficha con un DirectoryListBox para decidir el nombre del archivo y la carpeta donde se va a colocar.
Para obtener el nombre del archivo abro la ficha así

Código Delphi [-]
        Ficha1:=TExportExcel.Create(Self);
        Ficha1.ShowModal;
        Ficha1.Free;

y Utilizo una variable pública

Código Delphi [-]
DestinoC :string;

y luego cuando cierro la ficha anterior, una vez añadido a la variable la extensión XLS, creo el archivo de esta manera

Código Delphi [-]
DataToXLS1.SaveToFile(DestinoC);

Bien pues si en vez de hacer esto, le pongo directamente el nombre del archivo sí funciona, de esta manera

Código Delphi [-]
DataToXLS1.SaveToFile('c:\fichmaq\DestinoC.xls');

pero ojo, en la otra ficha que comenté anteriormente, lo hago igual y funciona perfectamente.

La verdad no entiendo qué puede estar pasando.

Gracias por vuestro interés.