Hola Dec encontre un solucion no tan rapida como la tuya pero creo que vale...
A partir de un TImage me hice un compomente TImageExt con una propiedad
Filename.... Esta propiedad no se carga sola y solo sirve para guardar el Path de la imagen....
Las Funciones las saque de un TFilenameEDit de las RX
Lo publico y capas puedas ayudarme a que esa propiedad se cargue automaticamente cuando cargo una imagen....solo para dejarlo completo...
Sino sirve igual
Saluda Atte Neeruu