Zapis słowny liczby

Co tu dużo pisać. Oto kod zamieniający dowolną liczbę (np. 123456) na jej zapis słowny (sto dwadzieścia trzy tysiące czterysta piećdziesiąt sześć). Przydatne przy wypełnianiu przekazów pocztowych :P

function LiczbaSlownie(Liczba: Int64): string;

   function Slow(t: string): string;
    const
      {Nazwy grupy jedności}
      J: array ['1'..'9'] of string[20] =
         (' jeden', ' dwa', ' trzy', ' cztery', ' pięć', ' sześć', ' siedem', ' osiem', ' dziewięć');
         {Nazwy liczb z zakresu 10..19. Wyjątki w języku polskim}
      N: array [10..19] of string[20] =
         (' dziesięć', ' jedenaście', ' dwanaście', ' trzynaście', ' czternaście', ' piętnaście',
         ' szesnaście', ' siedemnaście', ' osiemnaście', ' dziewiętnaście');
      {Nazwy grupy dziesiątek}
      D: array ['0'..'9'] of string[20] = 
         ('', '', ' dwadzieścia', ' trzydzieści', ' czterdzieści', ' pięćdziesiąt', ' sześćdziesiąt',
         ' siedemdziesiąt', ' osiemdziesiąt', ' dziewięćdziesiąt');
      {Nazwy grupy setek}
      S: array ['0'..'9'] of string[20] = 
         ('', ' sto', ' dwieście', ' trzysta', ' czterysta', ' pięćset', ' sześćset', ' siedemset',
         ' osiemset', ' dziewięćset');
   begin
      Result := '';
      case t[2] of
         '1': Result := S[t[1]]+N[StrToInt(t[2]+t[3])];
         '0', '2'..'9': Result := S[t[1]]+D[t[2]]+J[t[3]];
      end;
   end;

const
   {Nazwy grup}
   G: array [0..7, 1..3] of string[20] =
      (('', '', ''),
      (' tysiąc', ' tysiące', ' tysięcy'),
      (' milion', ' miliony', ' milionów'),
      (' miliard', ' miliardy', ' miliardów'),
      (' bilion', ' biliony', ' bilionów'),
      (' biliard', ' biliardy', ' biliardów'),
      (' trylion', ' tryliony', ' trylionów'),
      (' tryliard', ' tryliardy', ' tryliardów')); //Tego to już raczej nie da się...

var
   sl, t1, t: string;
   i, k, dl: Byte;
begin
   t := IntToStr(Liczba);
   dl := Length(t);
   for i := 0 to (dl-1) div 3 do
      begin
      t1 := Copy(t, Length(t)-2, 3);
      Delete(t, Length(t)-2, 3);

      {Wyrównanie do 3 cyfr}
      for k := 1 to 3-Length(t1) do
         t1 := '0' + t1;

      {Jeżeli wszystkie 3 to 0 to nie ma po co dodawać nazwy grupy}
      if t1 = '000' then
        Continue;

      {Przypadek liczby pojedynczej}
      if (t1 = '001') then
         sl := Slow(t1) + G[i,1] + sl
         else
            {Liczby kończące się na 2, 3 lub 4 oprócz 12, 13 i 14. Ach ten język polski}
            if (t1[3] in ['2'..'4']) and (t1[2] <> '1') then
               sl := Slow(t1) + G[i,2] + sl
               else
                  sl := Slow(t1) + G[i,3] + sl;
      end;
   Result := Trim(sl);
end;