Si tienes varias imágenes Sender te da cual es. Si lo conviertes a TImage:
TImage(Sender) esa es la imagen. Las puedes distinguir por su nombre:
TImage(Sender).Name. Date cuenta que en el ejemplo se le asigna un nombre.
Para agregar un texto puedes usar:
Código Delphi
[-]TImage(Sender).Canvas.TextOut(X,Y, TImage(Sender).Name);
Saludos.