AddBitmaps example for Delphi

procedure TForm1.Button1Click(Sender: TObject); 
var
   i: Integer; 
begin
   for i:= 0 To 4 do
   begin
      LEADImage2.Bitmap:= LEADImage1.Bitmap; 
      LEADImage2.Rotate ( 7200 * i, 0, RGB(255, 0, 0) ); 
      LEADImage3.InsertBitmapListItem (LST_APPEND, LEADImage2.Bitmap); 
   end; 
   LEADImage1.AddBitmaps ( LEADImage3.BitmapList, BC_AVG ); 
end;