Obtener Tag de un timage

[DaHousecat]

Bueno el punto es este, tengo 10 Timage con diferentes nombres y les he asociado el mismo evento clic a todos.

Lo que deseo hacer (no se si es posible) es sacar el tag del timage cuando le den clic, como dije 10 timage comparte el mismo evento clic, entonces cada uno de los 10 timage tienen un tag diferente.

hice algo asi:

procedure TForm1.All2Click(Sender: TObject);
var fileName:String;
begin
       fileName:=inttostr(Self.tag)+'.jpg';
       comparar(fileName);
end;

Pero eso me devuelve el tag del Form, y no del boton que esta invocando el evento.

Hay alguna manera de saber el tag del elemento que esta invocando el evento clic?, ¿tomando en cuenta que esta asociado a varios?