在Delphi XE8中共享后，TImage将PNG图像的透明度保存为JPEG

Question

我为Delphi XE8中的TImage组件分配了一个透明的PNG图像，使用共享表操作来共享此图像。我的智能手机上的成功结果现在是JPEG图像，显然会失去所有透明度。我的透明背景现在变黑了。

我需要我的图像来保持其透明度，我该怎么办？

这是我的代码：

var
ShareSheetForm: TShareSheetForm;



implementation

{$R *.fmx}

{$R *.LgXhdpiPh.fmx ANDROID}


    procedure TShareSheetForm.ShowShareSheetAction1BeforeExecute(Sender: TObject);

begin


    ShowShareSheetAction1.Bitmap.Assign(Image1.Bitmap);

end;


end.