1. 개발/실행 플랫폼 
  (1) OS : 
  (2) 개발툴 : 
  (3) 사용 Database : 

2. 개발 중인 프로그램 

3. 질문 내용 

  panel01 ~ panel104 까지 연속된 panel에 panel105.caption에 예를 들어  100이라는 값이 있으면

  panel1~~100까지 clrad 색상으로 변경이 가능한 방법이 있을까요?

제가 아는 방법은 if문 써서 노가다 하는 방법만이 생각나서ㅜㅜ 도와주세요

김시준 님이 알려주신 아래 방법은 제가 잘못하는지 안되네요 참고로 판넬 이름은 L01~L140 까지 있습니다.


   
 
procedure TForm2.Button1Click(Sender: TObject);
 var
     i: Integer;
 begin
     if  Pos('100', Panel5.Caption) <= 0 then
         Exit;

     for i := 0 to ComponentCount - 1 do
     begin
         if Components[i] is TPanel then
         begin
             TPanel(Components[i]).ParentBackground := False;
             TPanel(Components[i]).Color := clRed;
         end;
     end;
 end;