Bitmap := TBitmap.Create;
try
  Bitmap.PixelFormat := TPixelFormat.pf32bit;   // 32bit bitmap
  Bitmap.AlphaFormat := TAlphaFormat.afDefined; // Enable alpha channel
  Bitmap.SetSize(500, 500); // Set the bitmap to a custom size
  // Fill Bitmap background with transparency:
  Bitmap.Canvas.Brush.Color := clNone;
  Bitmap.Canvas.FillRect(Rect(0, 0, Bitmap.Width, Bitmap.Height));
  Bitmap.SaveToFile('EmptyBitmap.bmp');

Bitmap.SaveToFile('ReadyBitmap.bmp');

ImageEnView1.Assign(Bitmap);
ImageEnView1.Update;
ImageEnView1.IO.SaveToFileBMP('ImageEnBitmap.bmp');

// 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;