Una vez cargada la imagen ya no hay forma de obtener el path original (a no ser que te lo guardes tú);
Deberías cargar la imagen a partir del path de la aplicación y una ruta parcial, de esa forma si mueven la aplicación y imagen, seguirá funcionando.
Código Delphi
[-]
rodando := IncludeTrailingBackslash(ExtractFilePath(Application.ExeName));
rodando := rodando + 'img1.bmp';
Si mueves el EXE y la imagen, seguirá funcionando.
No se si es a eso a la que te referías.