Семисегментный индикатор

int a,b,c,d,e,f,g;
if(a==0) {
  Image1->Canvas->Brush = clBlack; // или как там задается цвет, не помню
}
else if(a==1) {
  Image1->Canvas->Brush = clLime;
}
if(b==0) {
  Image2->Canvas->Brush = clBlack; // или как там задается цвет, не помню
}
else if(b==1) {
  Image2->Canvas->Brush = clLime;
}
{
// и т.д.
}

void Light(unsigned int State) {
    Form1->Image1->Canvas->Brush->Color = Form1->Color;
    Form1->Image1->Canvas->FillRect(Rect(0, 0, Form1->Image1->Width, Form1->Image1->Height)); // закрашиваем цветом формы
    Form1->Image1->Canvas->Pen->Color = State*100000;
    Form1->Image1->Canvas->Ellipse(Rect(10, 10, 20, 20));
}
 
void __fastcall TForm1::Button1Click(TObject * Sender) {
    Light(1); // число от 0 до 7
}

TColor colors[] = {clRed, clLime, clYellow, clBlue, clAqua, clFuchsia, clBlack};
 
void Light(unsigned int State) {
    Form1->Image1->Canvas->Brush->Color = Form1->Color;
    Form1->Image1->Canvas->FillRect(Rect(0, 0, Form1->Image1->Width, Form1->Image1->Height)); // закрашиваем цветом формы
    Form1->Image1->Canvas->Pen->Color = colors[State];
    Form1->Image1->Canvas->Ellipse(Rect(10, 10, 20, 20));
}
 
void __fastcall TForm1::Button1Click(TObject * Sender) {
    Light(3);
}