TLabel *preLabel;
void __fastcall TForm1::LabelClick(TObject *Sender)
{

    TLabel *label=(TLabel *)Sender;
    label->Color = clYellow;  //방금클릭한것의 색갈을 바꾼다.
    if(label!=preLabel)//똑같은것을 클릭한경우 색갈을 변경하지 않기 위해서...
    {
        if(preLabel)preLabel->Color = clBlue;         //이전에 클릭한것이 있으면 원래색으로 돌려준다.
        preLabel=label; //방금클릭한 Label을 변수에 기억해둔다.
    }
}

아야 님이 쓰신 글 :
: 안녕하세요.. 아무리 해봐도 안되요...
: 파넬위에 여러가지 라벨( 1 ~ 16개)을 배치해두어 그것을 클릭하면 색깔을 지정하는 겁니다..우선 16개라벨을 OnClick에서 LabelClick지정해둠.
: 근데 이런식으로 하면
: void __fastcall TForm1::LabelClick(TObject *Sender)
: {
:     TLabel *pLabel = (TLabel *)Sender;
:
:     pLabel->Color = clYellow;   
: }
: 클릭하면 전 라벨 색깔이 옐로로 변하잖아요... 전 클릭한 라벨만 옐로로 하고 다른건 지정한 색깔 그대고. 또다시 새로운 라벨을  클릭하면 전클릭한 라벨은 블루로 돌아가고 새로 클릭한 라벨만 옐로로 바꾸는 겁니다,..
: 다른 방법으로 Tag를 각 라벨에 순서지정해서 Switch을 썼는데요...색깔변경은 되지만 넘 바보같은 짓인거 같아서요... case문으로 16개지정해야 되잖아요...
: void __fastcall TSubForm::LabelClick(TObject *Sender)
: {
:     TLabel  *label = dynamic_cast<TLabel *>(Sender);
:     switch( label->Tag) {
:          case 1:
:             Label1->Color = clYellow;
:             Label2->Color = clBlue;
:             Label3->Color = clBlue;
:             Label4->Color = clBlue;
:             Label5->Color = clBlue;
:             Label6->Color = clBlue;
:             Label7->Color = clBlue;
:             Label8->Color = clBlue;
:             Label9->Color = clBlue;
:             Label10->Color = clBlue;
:             Label11->Color = clBlue;
:             Label12->Color = clBlue;
:             Label13->Color = clBlue;
:              Label14->Color = clBlue;
:             Label15->Color = clBlue;
:              Label16->Color = clBlue;
:         break;
:     case 2:
:             Label1->Color = clBlue;
:             Label2->Color = clYellow;
:             Label3->Color = clBlue;
:             Label4->Color = clBlue;
:             Label5->Color = clBlue;
:             Label6->Color = clBlue;
:             Label7->Color = clBlue;
:             Label8->Color = clBlue;
:             Label9->Color = clBlue;
:             Label10->Color = clBlue;
:             Label11->Color = clBlue;
:             Label12->Color = clBlue;
:             Label13->Color = clBlue;
:             Label14->Color = clBlue;
:             Label15->Color = clBlue;
:             Label16->Color = clBlue;
:         break;
:     case 3:
:               // 16개 색깔지정해야함
:     case 4:
:                 .......
:     case 16:
:        default:
:            break;
:     }
: 고수님 좀더 간편하게 하는 방법좀 가르쳐 주세요.....
: 빌더을 시작한지 얼마되지않아 몰겠어요... m(;- -;)m