Buenas,
Si entiendo bien, al evaluar la propiedad Tag de uno de los TImage en ese evento debería ser con algo como:
Código Delphi
[-]if (Sender as TImage).Tag = 10 then
Como soy criticón, creería que ese código se puede mejorar cambiando la cascada de if por un
case of, quitándole el sleep y ... en fin, son gustos.
-