Hola,
Lo que se me ocurre no me parece muy elegante, pero, así a bote pronto... tal vez podría funcionar más o menos:
Código Delphi
[-]
var
imgPath: PChar;
begin
imgPath := 'clubdelphi.bmp';
Image1.Tag := Integer(imgPath);
Image1.Picture.LoadFromFile(imgPath);
Es decir, se trata de guardar en la propiedad "Tag" del componente la ruta del archivo de imagen. Esta ruta podría luego recuperarse tal que así:
Código Delphi
[-]
var
s: PChar;
begin
s := Image1.Tag;
ShowMessage(s);
end;
Pero, reconozco que estoy un poco perdido aquí. No sé muy bien qué pasa. No sé muy bien "a qué apunta" la propiedad "Tag", no sé si aquello a lo que apunte "se liberará" correctamente. Aparentemente funciona, pero, creo que tiene que haber mejores soluciones. A ver si a algún compañero se le ocurre algo mejor.
