TDictionary在delphi中的奇怪行为

我正在用一些值填充一个字典,并希望按照我填充它们的相同顺序将它们恢复.

不知怎的,它似乎没有用,当我遍历项目时,它们按非逻辑顺序(IMDO)排序.

运行以下程序后：

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,System.Generics.Collections;
var
  Dictionary: TDictionary<LongWord,string>;
  aPair: TPair<LongWord,string>;
begin
  Dictionary := TDictionary<LongWord,string>.Create;
  Dictionary.add(1,'First Item');
  Dictionary.add(2,'Second Item');
  Dictionary.add(3,'Third Item');
  Dictionary.add(4,'Forth Item');
  Dictionary.add(5,'Fifth Item');
  Dictionary.add($FFFFFFFF,'Longword Item');

  for aPair in Dictionary do
    writeln(aPair.Value);

  readln;
end.

我得到了以下结果：

Forth Item
Longword Item
First Item
Third Item
Second Item
Fifth Item

难道我做错了什么？

在XE5和Rad Studio Berlin上测试,结果相同.

感谢帮助.