Poniższy kod kompiluje się od wersji Delphi XE3, ponieważ użyto w nim rekordów pomocników (record helpers).
program LiczbaDniRoku;
{$APPTYPE CONSOLE}
uses System.SysUtils, System.Generics.Collections, System.DateUtils;
var LiczbaDni: TDictionary<String, Integer>; // klucze typu String, wartości typu Integer
begin // utworzenie słownika LiczbaDni := TDictionary<String, Integer>.Create; LiczbaDni.Add('styczeń', 31); // wstawienie pary: klucz, wartość LiczbaDni.Add('luty', 28); LiczbaDni.Add('marzec', 31); // podaje liczbę kluczy przechowywaną w słowniku Writeln('liczba dodanych miesiecy: ', LiczbaDni.Keys.Count.ToString); // korekta liczby dni 'lutego', gdy rok jest przestępny if DaysInAYear(2000) = 366 then LiczbaDni['luty'] := 29; // zmiana wartości związanej z kluczem "luty" // wyszukanie wartości klucza w słowniku if LiczbaDni.ContainsKey('marzec') then Write('liczba dni w marcu = ', LiczbaDni['marzec']) else Write('klucz "marzec" nie występuje w słowniku'); // usunięcie słownika LiczbaDni.Free; // zatrzymanie okna konsoli Readln; end.