我有一些代码调用SHGetFileInfo来检索系统图标列表：

FileIcons: TImageList;

procedure LoadFileIcons;
var
  listHandle: Integer;
  shFileInfo: TSHFileInfo;
begin
  listHandle:= SHGetFileInfo('', 0, shFileInfo, Sizeof(shFileInfo),
                             SHGFI_SYSICONINDEX or SHGFI_LARGEICON);

  if (listHandle <> 0) then
  begin
    FileIcons.Handle:=listHandle;
    FileIcons.ShareImages:=true;
  end;
end

在 Delphi 上，这工作正常，我能够加载图标和显示文件与适当的图标。在 Delphi 11.3中，它引发了以下异常：

Project Project.exe raised exception class ERangeError with message 'Range check error at address 00000000035C7A99'.

Delphi 10.4和Delphi 11.3之间有什么变化吗？我该怎么解决？