Obtener nombre de archivo de imagen

[radenf]

Muchas gracias por responder [duilioisola].

Usé el código que incluiste, pero selecciona el último archivo de imagen del ImageList y no el que debiera al hacer click en la miniatura.
Debí sin embargo declarar en private Image:TImage, porque si no aparece como no declarado el [Image.Tag] y si lo incorporo como variable en el ClickImage da un access violation.
Saludos y muchas gracias

[[duilioisola]]

Si, no me di cuenta de tomar la imagen que está siendo clicada.
Sender, es la imagen, por lo tanto TImage(Sender).Tag te devolverá el Tag de esa imagen.
NO DEBES INCLUIR IMAGE EN LA DECLARACION PRIVATE.
El procedimiento ClickImage quedaría así:

Código Delphi [-]
procedure TFormPrincipal.ClickImage(Sender: TObject);
begin
  Image1.Bitmap.Assign(TImage(Sender).Picture);
  ShowMessage('El nombre del archivo es: ' + ImageList[TImage(Sender).Tag]);
end;

[radenf]

Muchas gracias [duilioisola].
Me alegraste el día. Funcionó perfecto.
Ya que de esta manera, con este código puedo obtener las coordenadas GPS de la imagen.

Código Delphi [-]
procedure TFormPrincipal.ClickImage(Sender: TObject);
var
ExifData: TExifData;
begin
Image1.Bitmap.Assign(TImage(Sender).Picture);
Image2.Bitmap.Assign(TImage(Sender).Picture);
Edit1.Text:= ImageList[TImage(Sender).Tag];
ExifData := TExifData.Create;
try
ExifData.LoadFromGraphic(Edit1.Text);
Label1.Caption:= 'Latitud: ' + ExifData.GPSLatitude.ToString + ' / Longitud: '+ ExifData.GPSLongitude.ToString;
finally
ExifData.Free;
end;
end;

Sólo me falta transformar las coordenadas geográficas a formato decimal para mostrar en un mapa dónde se tomó la fotografía.

Un abrazo