请问关于打开对话框多选后排序的问题

我在打开对话框中选择多个文件，吧这几个文件拷贝到我工程的文件夹下。如代码所示。但是我发现文件名从i=0开始不是按照原来目录里文件名的顺序开始的，而是从最后选中的文件开始，请问有没有办法i=0的时候无论鼠标最后点击的是哪个文件，都按照目录里面实际的文件名顺序显示？谢谢！
for i := 0 to open1.Files.Count - 1 do
    begin
      FFile := open1.Files[i];      Dir1:=ExtractFileName(FFile);
              start.Execute;

    end;