image - 複数の画像をロードする Firemonkey のメモリ過負荷

Question

FireMonkey でフォト エディタを作成しようとしています。実行時に作成された 50 個の TImage コンポーネントがあります。これらのコンポーネントに大きなイメージ (約 3 MB) をロードすると、「メモリ過負荷」エラーが発生します。

これは私の画像転送コードです。

img1:=(sender as timage).Name;
strm:=TMemoryStream.Create;
(data.Source as timage).Bitmap.SaveToStream(strm);
(sender as timage).Bitmap.LoadFromStream(strm);
strm.Free;