//так вставляю картинку извне
	Image1->Stretch = true;
	Image1->Picture->LoadFromFile(OpenDialog1->FileName);

//так рисую круги
        Image1->Canvas->Brush->Color = clWhite;
	Image1->Canvas->Pen->Color = clBlack;
	Image1->Canvas->Font->Color = clBlack;
	Image1->Canvas->Ellipse(otstupX, otstupY, radius + otstupX - 1, radius + otstupY - 1);
	Image1->Canvas->TextOutW(otstupX+4, Height/2-7, IntToStr(10-i));

void __fastcall TfrmMain::Draw(int Width, int Height, TCanvas Kanva)
{
Kanva->Brush->Color = clBlack;
....
}

void __fastcall TfrmMain::Draw(int Width, int Height, TCanvas Kanva)
{
Kanva->Brush->Color = clBlack;
....
}

void __fastcall TfrmMain::Draw(int Width, int Height, TCanvas* Kanva)

				Draw(Width, Height, Image1->Canvas, 1);
				Draw(Width, Height, Image2->Canvas, 3);