procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 //Load Picture...
 Image1.Picture.Assign( ImageEnView1.Bitmap );
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 //Assign From TImageEnView...
 ImageEnView1.IO.LoadFromFile( 'C:\Users\Wesley\Desktop\RotateAndCrop\002.png' );
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 bmp: TBitmap;
begin
 bmp := TBitmap.Create;
  try

   if Image1.Picture.Bitmap.PixelFormat = pf32bit then
    begin
     bmp.Assign( Image1.Picture.Graphic );

     case bmp.PixelFormat of
       pfDevice: ;
       pf1bit: ;
       pf4bit: ;
       pf8bit: ;
       pf15bit: ;
       pf16bit: ;
       pf24bit: ;

       pf32bit:
        begin
         Image2.Picture.Bitmap.Assign( bmp );
         Image2.Invalidate;
       end;

       pfCustom: ;
     end;

    end;

  finally
   bmp.Free;
  end;

end;

procedure TForm1.Button1Click(Sender: TObject);
var
 bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  try
    bmp.LoadFromFile( 'd:\201622282427_Bmp32.bmp' );
    if bmp.PixelFormat <> pf32bit then
      ShowMessage( 'NOT 32BIT!' );
    Image2.Picture.Bitmap.Assign( bmp );
    Image2.Invalidate;
  finally
    bmp.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Image2.Picture.LoadFromFile( 'd:\201622282427_Bmp32.bmp' );
  if Image2.Picture.Bitmap.PixelFormat <> pf32bit then
    ShowMessage( 'NOT 32BIT!' );
end;

// Assign a 32bit Bitmap with alpha channel to an ImageEnView (keeping the alpha)
var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create();
  bmp.LoadFromFile( 'Bmp32_with_Alpha.bmp' );
  ImageEnView1.IEBitmap.Assign( bmp );
  ImageEnView1.IEBitmap.SynchronizeRGBA( true );
  ImageEnView1.Update();
  bmp.Free();
end;

// Create a 32bit Bitmap with alpha channel
var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create();
  ImageEnView1.IEBitmap.SynchronizeRGBA( false );
  ImageEnView1.IEBitmap.CopyToTBitmap( bmp );
  bmp.SaveToFile( 'test.bmp' );
  bmp.Free();
end;