du könntest mit random einen Wert zwischen 1 und 20 erzeugen und dann das jeweilige Shape mit FindComponent suchen, aber ich glaube TComponent hat keine Eigenschaft Visible...
//Edit:
Ein herzliches Willkommen in der
DP
//Nr.2: Also bliebe dir case...