Наложение рис в Image при загрузке из ImageList

[eugrita]

Есть Image I1 и ImageList IL; при замене старого рис в Image на новый из ImageList
старый не стирается, т.е получается гибрид из 2,3,... рис.
Метода типа Clear в Image не нашел

Код:

 void __fastcall TForm1::rgClick(TObject *Sender)
{
 var i:Ineger;
 i=rg.ItemIndex;
  //I1->Picture = IL-> ListImages(i)->Picture;
 IL.GetBitmap(i,I1.Picture.Bitmap); .
 I1.Repaint();
}

[zubr]

Image1.Picture.Assign(nil);

[eugrita]

спасибо