FMX - convertendo numeral em cardinal II

OBS: Esta versão veio para melhorar 

alguns detalhes na interface gráfica.

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:

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

void __fastcall TForm1::Button2Click ( TObject *Sender ) {;

   Close ( );

}

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

void __fastcall TForm1::FormCreate ( TObject *Sender ) {

   Label_Manual ( Sender );

   Text2 -> Visible = false;

//pos X, pos Y, Width, Height, Size, Bool, Color,String

T_Text ( 50, 35, 500, 20, 17, true, 3, "FMX - CONVERTENDO NUMERAL EM CARDINAL II" );

T_Rect_2 ( 60, 280, 165, 20 );

T_Text ( 40, 280, 200, 20, 13, true, 0, "Número entre 0 e 10000" );

}

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