Problema uso de tag

[TOPX]

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.
-