AddWeightedBitmaps example for Delphi

procedure TForm1.AddWeightedBitmapsClick(Sender: TObject);
var
   i: L_INT;
begin
   { Load the bitmap, keeping the bits per pixel of the file }
   LEADImage1.Load( 'e:\image1.cmp', 0, 1, 1 );

   for i:= 0 to 3 do
   begin
      LEADImage1.Rotate( i * 720, ROTATE_RESIZE, RGB(255, 0, 0));
      LEADImage2.InsertBitmapListItem( 0, LEADImage1.Bitmap);
   end;

   LEADImage1.AddWeightedBitmaps( LEADImage2.BitmapList, Nil, BC_AVG );
end;