اما چطور میشه با دستور copy مقدار عددی را جدا کرد؟در ضمن کد زیر رو هم نوشتم ولی نمیتونم کاملش کنم .
For i := 0 To ComponentCount Do

        IF Components[i] Is Tpanel Then

        Begin

          if (Components[i] as Tpanel).visible= then

        End