Recuperar Filename de un Timage

[dec]

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.