Упрощение кода

sel=List->Selected->AbsoluteIndex+1;
    switch (sel)
    {
        case 1:                                  //Общие
        {
            BoxLang->Top= 8;
            BoxLang->Left= 160;
            BoxLang->Visible= true;
            ShowTest->Visible= false;
            SetPass->Visible= false;
            EditingTest->Visible= false;
            Set->Visible= false;
            break;
        }
        case 3:                                  //Редактирование
        {
            EditingTest->Top= 8;
            EditingTest->Left= 160;
            EditingTest->Visible= true;
            ShowTest->Visible= false;
            SetPass->Visible= false;
            BoxLang->Visible= false;
            Set->Visible= false;
            break;
        }
        case 4:                                  //Просмотр теста
        {
            ShowTest->Top= 8;
            ShowTest->Left= 160;
            ShowTest->Visible= true;
            SetPass->Visible= false;
            BoxLang->Visible= false;
            Set->Visible= false;
            EditingTest->Visible= false;
            break;
        }
        case 5:                                  //Результаты
        {
            Set->Top= 8;
            Set->Left= 160;
            Set->Visible= true;
            ShowTest->Visible= false;
            SetPass->Visible= false;
            BoxLang->Visible= false;
            EditingTest->Visible= false;
            break;
        }
 
        case 6:                                  //Смена пароля
        {
            SetPass->Top= 8;
            SetPass->Left= 160;
            SetPass->Visible= true;
            ShowTest->Visible= false;
            BoxLang->Visible= false;
            EditingTest->Visible= false;
            Set->Visible= false;
            break;
        }
    }

void SetValues(TControl *c1, TControl *c2, TControl *c3, TControl *c4, TControl *c5)
{
            c1->Top= 8;
            c1->Left= 160;
            c1->Visible= true;
            c2->Visible= false;
            c3->Visible= false;
            c4->Visible= false;
            c5->Visible= false;
}

sel=List->Selected->AbsoluteIndex+1;
    switch (sel)
    {
        case 1:                                  //Общие
            SetValues(BoxLang, ShowTest, SetPass, EditingTest, Set);
            break;
 
        case 3:                                  //Редактирование
            SetValues(EditingTest, ShowTest, SetPass, BoxLang, Set);
            break;
 
        case 4:                                  //Просмотр теста
            SetValues(ShowTest, SetPass, BoxLang, Set, EditingTest);
            break;
 
        case 5:                                  //Результаты
            SetValues(Set, ShowTest, SetPass, BoxLang, EditingTest);
            break;
 
        case 6:                                  //Смена пароля
            SetValues(SetPass, ShowTest, BoxLang, EditingTest, Set);
            break;
    }

void __fastcall TForm1::ListClick(TObject *Sender)
{
     int Nx = List->Selected->AbsoluteIndex;
     TControl *Cr[6] = { BoxLang,0,EditingTest,ShowTest,Set,SetPass };
     for(int i=0;i<6;i++) if(Cr[i]) {
       Cr[i]->Visible = i==Nx;
       if(i==Nx) { Cr[i]->Top=8; Cr[i]->Left=160; }
     }
}