Изменение размера изображений в TImageList со сглаживанием

Я загружаю изображения, изменяю их размер и вставляю с помощью следующего кода, найденного на StackOverFlow:

Navigator.Get(Image, MImage);
MImage.Position := 0;
si := HeaderFooterWithNavigation.ArticlesImages.Source.Add;
si.Name := 'Source' + IntToStr(A);
si.MultiResBitmap.LoadItemFromStream(MImage, 1);
d:=HeaderFooterWithNavigation.ArticlesImages.Destination.Add;
Layer := d.Layers.Add;
Layer.SourceRect.Rect := TRectF.Create(0, 0,
si.MultiResBitmap.Bitmaps[1].Width, si.MultiResBitmap.Bitmaps[1].Height); 
Layer.Name := si.name;

Хотя это работает, изображения в моем ListView в конечном итоге становятся пикселизированными. Как они могут появиться со сглаживанием? Я использую Delphi 10.2 Rio и работаю с FMX.