نقل قول نوشته شده توسط h.tehrani مشاهده تاپیک 
var

i:integer;

begin

  For i := 0 To ControlCount-1 Do

        IF Controls[i] Is Tlabel Then

        Begin

          (Controls[i] as tlabel).visible:=false;

        End ;
کد را به شکل زیر تغییر بده.


    For i := 0 To componentCount-1 Do

        IF Components[i] Is Tpanel Then

        Begin

          TPanel(Components[i]).Visible:=False;

        End ;

موفق باشید