Рандомная заливка элементов, смена цвета по щелчку

void __fastcall TForm1::FormPaint(TObject *Sender)
{
 
TColor OColor[3] =
{
    clBlue,
        clYellow,
        clRed
 
};
int h = random(3);
Canvas->Brush->Color = OColor[h];
Canvas->Ellipse(25, 25, 125, 125);
Canvas->Ellipse(125, 25, 225, 125);
Canvas->Ellipse(225, 25, 325, 125);
Canvas->Ellipse(325, 25, 425, 125);
Canvas->Ellipse(425, 25, 525, 125);
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    Canvas->Brush->Color=clWhite;
 
Canvas->Ellipse(25,25,125,125);
Canvas->Ellipse(125, 25, 225, 125);
Canvas->Ellipse(225, 25, 325, 125);
Canvas->Ellipse(325, 25, 425, 125);
Canvas->Ellipse(425, 25, 525, 125);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClick(TObject *Sender)
{
    // if( Canvas->Brush->Color ==clWhite)  Canvas->Brush->Color =clBlue;
    // else if( Canvas->Brush->Color ==clBlue)  Canvas->Brush->Color =clRed;
    // else if( Canvas->Brush->Color ==clRed)  Canvas->Brush->Color =clYellow;
    // else if( Canvas->Brush->Color ==clYellow)  Canvas->Brush->Color =clWhite;
 
}
 
//---------------------------------------------------------------------------

TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
TColor OColor[4] =
{
  clWhite,
  clBlue,
  clRed,
  clYellow
};
//---------------------------------------------------------------------------
void __fastcall TForm1::FormPaint(TObject *Sender)
{
// рисуем один раз; проблема лишь в том, что перерисовки при переносе формы за края экрана не будет (часть сотрется)
// решение проблемы попробуй реализовать сам (подсказка - сохраняй цвета кругов и при перерисовке указывай для
// каждого круга в качестве цвета запомненное значение)
  if (Tag == 0)
  {
    randomize();
    for (int i = 0; i < 5; i++)
    {
      Canvas->Brush->Color = OColor[random(4)];
      Canvas->Ellipse(25+i*100, 25, 125+i*100, 125);
    }
    Tag = 1;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
  if (Button == mbLeft)  // если кликнули левой кнопкой мыши
    for (int i = 0; i < 4; i++)
      if (Canvas->Pixels[X][Y] == OColor[i])
      {
        Canvas->Brush->Color = OColor[(i+1)%4];
        Canvas->FloodFill(X, Y, OColor[i], fsSurface);
        break;
      }
}