Вывести на экран рисунок "Олимпийские кольца"

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Canvas->Brush->Style = bsClear;
    Canvas->Pen->Width = 4;
    Canvas->Pen->Color = clBlue;
    Canvas->Ellipse(10,10,100,100);
    Canvas->Pen->Color = clBlack;
    Canvas->Ellipse(110,10,200,100);
    Canvas->Pen->Color = clRed;
    Canvas->Ellipse(210,10,300,100);
    Canvas->Pen->Color = clYellow;
    Canvas->Ellipse(60,60,150,150);
    Canvas->Pen->Color = clGreen;
    Canvas->Ellipse(160,60,250,150);
}

void __fastcall TForm84::Button2Click(TObject *Sender)
{
Canvas->Brush->Color=clSkyBlue;;
Canvas->Brush->Style=bsCross;
Canvas->RoundRect(50,50,700,700,150,150);
}

// ...
    Canvas->Brush->Color = clSkyBlue; ;
    Canvas->Brush->Style = bsCross;
    Canvas->Rectangle(ClientRect);
 
    Canvas->Brush->Style = bsClear;
    Canvas->Pen->Width = 4;
    Canvas->Pen->Color = clBlue;
    Canvas->Ellipse(10, 10, 100, 100);
    Canvas->Pen->Color = clBlack;
    Canvas->Ellipse(110, 10, 200, 100);
    Canvas->Pen->Color = clRed;
    Canvas->Ellipse(210, 10, 300, 100);
    Canvas->Pen->Color = clYellow;
    Canvas->Ellipse(60, 60, 150, 150);
    Canvas->Pen->Color = clGreen;
    Canvas->Ellipse(160, 60, 250, 150);