342______________________________________________ 5

for(int i = 1; i <=10; i++)
{

switch (i)
(
case 1:Image4->Canvas->Brush->Color = clBlack;

break;

case 2:Image4->Canvas->Brush->Color = clAqua;

break;

case 3:Image4->Canvas->Brush->Color = clBlue;

break;

case 4:Image4->Canvas->Brush->Color = clFuchsia;

break;

case 5:Image4->Canvas->Brush->Color = cIGreen;

break;

case 6:Image4->Canvas->Brush->Color = cILime;

break;

case 7:Image4->Canvas->Brush->Color = cIMaroon;

break;

case 8:Image4->Canvas->Brush->Color = cIRed;

break;

case 9:Image4->Canvas->Brush->Color = clYellow;

break;

case 10:Image4->Canvas->Brush->Color = clWhite;

}
Image4->Canvas->Rectangle((i-1)*HW,0,i*HW,Image4->Height) ;

t

//        
Image3->Canvas->MoveTo(0,0) ;

Image3->Canvas->LineTo(Image3->Width,Image3->Height) ;

Image3->Canvas->MoveTo(0,Image3->Height);

Image3->Canvas->LineTo(Image3->Width,0) ;

BitMap->Assign(Image3->Picture) ;

 ,     .   
    (Imagel)   (Image2) : 
 .        FillRect.
    :     
          Rectangle. -
   Image3   (. 5.11 ).    
 ,        
.        ,  ,   
  .         BitMap
 Assign.

11.     OnDestroy  

BitMap->Free() ;

     .

12.        :

if (OpenPictureDialogl->Execute() ) (

Image3->Picture->LoadFromFile(OpenPictureDialogl->FileName);

BitMap->Assign(Image3->Picture) ;

}

     Image3  , 
   ,     BitMap.

13.        :

Image3->Picture->Assign(BitMap);