Déclenché lorsqu'on clique sur un sprite de la liste des sprites du niveau
procedure SpriteClick(Sender: TObject)