Recordの選択状態の取得

[rom]

こんにちは！

今回はRecordGrid上で選択されているレコードのINDEXを
下記のコードを使って取得しているのですが、
INDEXの取得する順番?がバラバラで困っています。。。

０，１，２，３・・・のように昇順で取ってこれれば良いなと考えております！



ご教授お願いします。

Code:

{let index_box:VBox={VBox}}

{let test_set:RecordSet=
    {RecordSet
        {RecordFields
            {RecordField "A"}
            ,{RecordField "B"}
        }
        ,{RecordData A = "1" , B = "100"}
        ,{RecordData A = "2" , B = "200"}
        ,{RecordData A = "3" , B = "300"}
        ,{RecordData A = "4" , B = "400"}
        ,{RecordData A = "5" , B = "500"}
        ,{RecordData A = "6" , B = "600"}
        ,{RecordData A = "7" , B = "700"}
        ,{RecordData A = "8" , B = "800"}
        ,{RecordData A = "9" , B = "900"}
    }
}

{let test_grid:RecordGrid=
    {RecordGrid
        record-source = test_set
        ,width = {make-elastic minimum-size = 200 }
        ,height = {make-elastic minimum-size = 150 }
        ,{RecordGridColumn "A" ,width=80}
        ,{RecordGridColumn "B" ,width=80}
    }
}

{let btn:CommandButton=
    {CommandButton
        label="ボタン"
        ,{on Action do
             {if test_grid.selection.record-count == 0
              then
                 {popup-message "レコードを選択してください"}
              else
                 ||選択しているレコードのINDEXを取得する
                 {for i:int in test_grid.selection.records do
                     {index_box.add i}
                 }
                 ||INDEXを表示
                 {popup-message index_box}
                 {index_box.clear}
             }
         }
    }
}

{value
    {VBox
        test_grid
        ,btn
    }
}