Nur damit ich das mal erwähnt habe - in 2.0 kannst du das auch anders schreiben:
Delphi-Quellcode:
aStockListe := TEnumerable.MaxBy<TPair<IStockListe, Integer>, Integer>(aDict,
function (const pair: TPair<IStockListe, Integer>): Integer
begin
Result := pair.Value;
end).Key;