Delphi 2007 OpenPictureDialog.Execute导致程序突然终止

Question

我有一个用Delphi 2007开发的应用程序。该程序非常老，有数千名用户。在Windows 10上执行以下代码时，一位客户（我只能确定一位）正在突然终止程序。

procedure TFmSF5Main.dxOpenClick(Sender: TObject);
const
  LastFilterIndex : integer = 1;
var
  Dlg : TOpenDialog;
  MyVar : integer;
begin
  Dlg := TOpenDialog.Create(nil);
  try
    Dlg.Filter := 'Tiff Files (*.tif,*.tiff) | *.tiff;*.tif|'+
                  'Jpeg Files (*.jpg,*.jpeg) | *.jpg;*.jpeg|'+
                  'Bmp Files (*.bmp) | *.bmp|'+
                  'PDF Files (*.pdf) | *.pdf|'+
                  'PNG Files (*.png) | *.png|'+
                  'DICOM Files (*.dicom,*.dcm) | *.dicom;*.dcm|'+
                  'Text Files (*.txt) | *.txt|'+
                  'APF Files (*.apf) | *.apf|'+
                  'Open Office Text (*.odt) | *.odt|' +
                  'Open Office SpreadSheet (*.ods) | *.ods|' +
                  'All Files (*.*) | *.*';
    Dlg.FilterIndex := LastFilterIndex;
    if Dlg.Execute(self.handle) then
    begin
      OtherMRU.AddItem(Dlg.FileName,nil);
      SaveMRUItems(mruOther);
      LastFilterIndex := Dlg.FilterIndex;
      ProcessOpenCommand(Dlg.FileName);
      FBookMarkNode := nil;
      btnBack.enabled := false;
    end;
  finally
    Dlg.Free;
  end;
end;

关于什么原因的任何线索？没有其他客户的投诉。我尚未更改Dialogs.UseLatestCommonDialogs变量，因此它的默认值为True。