╩αΩ ≈σ≡στ ΦφΣσΩ± εß≡α≥Φ≥ⁿ± Ω φσ±ΩεδⁿΩΦ∞ Ωε∞∩εφσφ≥α∞?
╫≥εß√ φαΘ≥Φ Φ ±Σσδα≥ⁿ ΓΦΣΦ∞√∞Φ, φα∩≡Φ∞σ≡, Ωε∞∩εφσφ≥√ ± Φ∞σφα∞Φ ε≥ "Label1" Φ Σε "Label5" ∞εµφε Φ±∩εδⁿτεΓα≥ⁿ ±δσΣ≤■∙ΦΘ Γα≡Φαφ≥:
for t := 1 to 5 do
FindComponent('Label' + IntToStr(t)).Visible := TRUE;
╤εΓσ≥√ φα≈Φφα■∙Φ∞