FMX - convertendo numeral em cardinal

Para definir um valor a objetos ou seres de qualquer espécie,

ou ainda qualquer coisa física que se encontra em nosso contexto,

utilizamos a palavra Numeral.

Podemos dizer que os numerais são os mesmos cardinais

porém quando se escreve são escritos

através de algarismos arábicos ou o menos usados romanos.

Os números cardinais expressam quantidade ou contagem exatas

de objetos, seres de qualquer espécie ou coisas físicas

existente em nosso contexto diário,

mas quando precisamos escrevê-los,

são escritos pelo seu nome propriamente dito,

ou como muitos dizem por ( extenso ).

A primeira versão deste programa, foi criada 

por mim mesmo em linguagem C, com os resultados

imprimidos na tela do CMD do windows.

Depois criamos uma versão em Java (texto),

e outra em JavaFx.

Agora criamos uma versão para rodar numa interface

gráfica do C++ builder, e se manteve bem fiel

a primeira versão criada em C, as poucas alterações

foram aplicadas somente nos comandos utilizados

pelos componentes da janela gráfica.

O interessante deste programa é que ele não utiliza

nenhum recurso avançado nem do C e nem do C++,

mesmo assim, eu me lembro que na criação da primeira versão,

me deu bastante trabalho na organização dos códigos. 

Limitamos o programa a imprimir resultados de até,

9999 (Nove Mil Novecentos e Noventa e Nove),

mas nada impede isto ser expandido para valores

muito acima disto, sem nenhuma dificuldade.

Assista agora o programa funcionando no vídeo:

//----------------------------------------------------------------------------

  if ( mi == 9000 ) {

   if ( de == 0 && un == 0 ) {

str_1 = "Nove Mil";

Button3 -> Text = Form1 -> Button3 -> Text + str_1;

   } else {

str_1 = "Nove Mil e ";

Button3 -> Text = Form1 -> Button3 -> Text + str_1;

   }

              }

  if ( mi == 8000 ) {

   if ( de == 0 && un == 0 ) {

str_1 = "Oito Mil";

Button3 -> Text = Form1 -> Button3 -> Text + str_1;

   } else {

str_1 = "Oito Mil e ";

Button3 -> Text = Form1 -> Button3 -> Text + str_1;

   }

              }

//---------------------------------------------------------------------------