TOpenFileDialog在选择多个文件时遇到问题

Question

我正在使用Delphi5。在Windows 7中使用TOpenFileDialog选择2365个文件时，Files属性不正确。下面是代码：

    procedure TForm1.Button1Click(Sender: TObject);
    var
      I: Integer;
    begin
      OpenDialog.Options := OpenDialog.Options + [ofAllowMultiSelect];
      if OpenDialog.Execute then
      begin
        with OpenDialog.Files do
          for I := 0 to Count - 1 do
            Memo1.Lines.Add(Strings[I]);
      end;
    end;

尽管我选择了2365个文件，但Count为1，而Strings [0]是无效字符。

我尝试在Delphi XE3下测试相同的代码，然后一切正常。

因此，我相信这是Delphi 5的一个错误。但是，由于我的项目是使用Delphi 5开发的，因此正因为这个错误，将代码从Delphi 5迁移到XE3十分耗时。因此，我只是想知道Delphi 5中是否存在针对该错误的解决方法，以便我可以解决该问题而无需将所有代码都更改为Delphi XE3。