delphi 读取某个问件夹下所有问件，读取顺序？？？


    Ret:=FindFirst(dir+'\*.jpg',faAnyFile,f);
    while   Ret = 0   do
    begin
        FileName:=f.Name;
        Ret:=FindNext(f)
    end;
    FindClose(f);
上面的程序会遍历dir下所有的jpg文件名，如dir下：图片1.jpg,图片2.jpg,图片3.jpg,图片4.jpg我想按照顺序读文件名，但是读出来的可能是 图片1.jpg,图片4.jpg,图片3.jpg,图片2.jpg
这是什么原因呢