Как использовать FMX Tbitmap.copyFromBitmap в Delphi 12 CE ⇐ Android

[Anonymous]

.У меня все еще нет опыта работы с Delphi для Android, но я продолжаю натыкаться на кирпичные стены.
Моя последняя проблема с использованием Tbitmap.copyFromBitmap в Delphi 12 CE.
Когда Я использую его, растровое изображение назначения, кажется, очищается, а затем раздел растрового изображения копируется правильно.
В простом примере у меня есть два растровых изображения разных цветов (желтый и фиолетовый) и нажатие кнопка копирует небольшой блок с правого изображения на левое.
Обратите внимание, как исчезает желтый цвет.
Скажите, пожалуйста, почему я бьюсь над такой тривиальной задачей.
Код предоставлен.
unit testUnit;

interface

uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects,
FMX.Controls.Presentation, FMX.StdCtrls;

type
TForm1 = class(TForm)
Image1: TImage;
Image2: TImage;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
var
r:Trect;
begin
r:=trect.Create(50,50,100,100);
image1.Bitmap.CopyFromBitmap(image2.bitmap,r,100,150);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
image1.bitmap.SetSize(300,300);
image1.bitmap.Canvas.BeginScene;
image1.bitmap.Canvas.Clear($ffff00);
image1.bitmap.Canvas.EndScene;
image2.bitmap.SetSize(300,300);
image2.bitmap.Canvas.BeginScene;
image2.bitmap.Canvas.Clear($ff00ff);
image2.bitmap.Canvas.EndScene;

end;

end.


Подробнее здесь: https://stackoverflow.com/questions/792 ... lphi-12-ce