在 TImage 中加速图像加载

Question

如何在 Delphi 10.2 的

TImage

中加快图像加载速度？

我想将一个项目从 Delphi 7 移动到 Delphi 10.2，但我在加载文件时遇到问题。在 Delphi 10.2 中，图像加载时间更长，质量也有所下降。

在Delphi 7中，大约需要3秒。在 Delphi 10.2 中，需要 15 秒。

来自 Delphi 7：

来自 Delphi 10.2：

这是我加载文件的方式：

IMG.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + IMG.Hint);

我尝试连接GDIPAPI、GDIPOBJ、GDIPUTIL，但没有成功。

我终于尝试制作一个程序片段来演示我的问题： https://github.com/MrDimain/TestPicsSpeed.git