image 读取 imagelist 里面图片

 var i:integer=1;
procedure TForm4.BitBtn1Click(Sender: TObject);
begin

     Inc(i);
if i>ImageList1.Count-1 then      i:=0;

ImageList1.GetBitmap(i,image1.Picture.Bitmap)     ;
Self.Refresh;
end;