FindComponent 함수를 사용해보세요.
만약에 Panel 들을 이름을 Panel1, Panel2, Panel3, ... Panel1000 이런식으로 만들어놨다면,
아래처럼 FindComponent로 해당 패널들을 얻어와서 처리할 수 있습니다.

TPanel *p;
for(i = 1; i <= 1000; i++){
    p = (TPanel*)(Frame1->FindComponent(String("Panel")+String(i)));
    p->Color=clBtnFace;
}

나래피오 님이 쓰신 글 :
: 제목처럼 Frame위에 1000개의 Panel이 존재합니다.
: 각각 다른 색상의 버튼을 클릭하면 버튼과 같은 색상으로 Panel의 색상이 바뀌도록 해야하는대요.
:
: 노가다로 작업하자니 너무 무식해보이고, For문을 쓰자니 어찌해야할지 감이 안오네요.
:
: void __fastcall TFormMain::XiButton1Click(TObject *Sender)
: {
:     int i;
:     TPanel *pPanel = (TPanel *)Sender;
:
:     for (i = 1; i = 1000; i++) {
:         Frame11-> (?) ->Color = clBtmFace;
:     }
: }
:
: 위 물음표 부분이 애매하네요.