procedure TEST_BITMAP(ABitmap: TBitmap);
var
  MB: TIEMultiBitmap;
  B: TIEBitmap;
begin
  //Option A
  B := TIEBitmap.Create;
  try
    B.CopyFromTBitmap(ABitmap);
    B.SaveToFile('D:\Test5\TestA.bmp');
  finally
    B.Free;
  end;

  //Option B
  MB := TIEMultiBitmap.Create;
  try
    MB.InsertImage(0, ABitmap);
    B := MB.GetTIEBitmap(0);
    B.SaveToFile('D:\Test5\TestB.bmp');
  finally
    MB.ReleaseBitmap(0, False);
    MB.Free;
  end;
end;

var ABitmap := TBitmap.Create();
ABitmap.LoadFromFile( 'D:\test.bmp' );
TEST_BITMAP( ABitmap );
ABitmap.Free();