evitar conflicto entre TSaveDialog y LoadFromFile

[lmpadron]

Saludos

estoy escribiendo un código dando cambio unas imágenes cadas cierto tiempo (ya saben como gusta el adobito !!!) y después de usar un TSaveDialog recibo un error !!! Ahí me doy cuenta de que existe cierta relación entre el TSaveDialog y la función LoadFromFile. En ese momento no presento un problema mayor así que solo detuve el cambio de imágenes momentáneamente, pero al recomenzar el cambio de imágenes recibo una ves mas un error, esta vez indicándome que no se encuentran las imágenes que están dentro de un directorio denominado "splash" !!! el que a su ves se encuentra en el directorio de ejecución de la aplicación.


este es el codigo que carga las imagenes

Image10->Picture->LoadFromFile("splash\\" + IntToStr(b) + ".jpg");

Cuando voy a usar el TSaveDialog detengo la ejecución de este código, al concluir lo reactivo y entonces recibo este error. No encuentra la carpeta "splash" porque el directorio de trabajo cambio hacia el directorio al que apunto el TSaveDialog !!!

---------------------------
Debugger Exception Notification
---------------------------
Project VB.exe raised exception class EFOpenError with message 'Cannot open file splash\13.jpg'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------

La pregunta concreta es:

1 - Como evitar que el TSaveDialog me cambie la dirección del Directorio de Trabajo ???
2 - Si no puedo entonces como puedo antes de que me cambie el Directorio de Trabajo capturarlo en una variable para poder recargarlo después de alguna forma en el LoadFromFile ???
3 - Puedo saber desde donde se estan cargando las imagenes cuando se usa el LoadFromFile???

Gracias de antemano por su tiempo


P.D
:
Al momento de terminar este post encontré la solución jejejej a veces parece mas difícil de lo que realmente es !!!! Solo tuve que extraer el directorio de la aplicación!!! Gracias de todas formas por detenerse a leer !!!

ExtractFileDir(Application->ExeName)
Image10->Picture->LoadFromFile(ExtractFileDir(Application->ExeName)+"\\splash\\" + IntToStr(b) + ".jpg");