TDictionary - mit einem Bezeichner unterschiedliche Values einfügen

[Rabenrecht]

Mal wieder so ne Frage, bei der ihr euch wahrscheinlich denkt: "Mensch, kann der überhaupt irgendwas?", but here we go

Ich habe eine HashMap (also TDictionary), die als Values Listen mit Integers (TList<Integer>) enthält.
Gefüllt wird die HashMap über eine Schleife.

Aber ich bekomme es nicht hin, dass die Values der HashMap einzigarte Werte sind. Im Objektinspektor steht da bei allen Einträgen immer die selbe Speicheradresse.

In Java würde ich mir bei sowas halt in jedem Schleifendurchlauf ein neues Listenobjekt erzeugen und dieses dann (entsprechend gefüllt) der HashMap zufügen.
Aber in Delphi kann man ja keine Variablen im Anweisungsblock deklarieren, daher stehe ich diesbezüglich etwas aufm Schlauch...