Как сделать цветной конус из полей Edit

int _i, _k;
    int b = StrToInt(LabeledEdit5->Text); // Бортовое содержание
 
    for ( size_t i( 0 ), i_limit( 100 ); i < i_limit; ++i )
    {
        if ( edit == edits[ i ] )
        {
            _i = i / 10;
            _k = i % 10;
        }
    }
 
    for ( int i( _i ), inc( 0 ), i_limit( 0 ); i >= i_limit; --i, ++inc )
    {
        for (
            int k( _k > inc ? ( _k - inc ) : ( 0 ) ),
            k_limit( ( _k + inc ) < 10 ? ( _k + inc ) : ( 9 ) );
            k <= k_limit; ++k )
        {   if ((StrToInt(edit->Text)) > b){
            ( * ( edits + i * 10 + k ) )->Color = clYellow;

    for ( size_t i( 0 ), i_limit( 100 ); i < i_limit; ++i ) // проходим по одномерному массиву
    {
        if ( edit == edits[ i ] )   // находим в нем изменяемый в данный момент эдит
        {                           // и получаем его координаты, как если бы это был двумерный массив
            _i = i / 10; // номер строки; при делении целочисленных переменных остаток отсекается в меньшую сторону
            _k = i % 10; // номер столбца; здесь мы получаем отдельно уже только остаток от деления на 10
        }
    }
 
    for ( int i( _i ), inc( 0 ), i_limit( 0 ); i >= i_limit; --i, ++inc ) // проходим уже по двумерному массиву, начиная с текущей строки, вверх, по всем предыдущим строкам - то бишь конус вверх основанием
    {
        for ( // в каждой строке, начиная с текущей, берем в обработку на два элемента больше, чем в предыдущей - один слева, другой справа, как бы увеличивая амплитуду
            int k( _k > inc ? ( _k - inc ) : ( 0 ) ), // inc - та самая амплитуда; здесь для текущей строки номер начального столбца устанавливается либо со смещением влево на inc от изначального значения _k, либо в ноль - то бишь начальным столбцом будет первый столбец
            k_limit( ( _k + inc ) < 10 ? ( _k + inc ) : ( 9 ) ); // здесь аналогично, только со смещением вправо по понятным причинам, устанавливается номер конечного столбца
            k <= k_limit; ++k ) // и проходим в текущей строке от начального столбца до конечного, изменяя попавшиеся элементы(цвет меняя)
        {   if ((StrToInt(edit->Text)) > b){ // это не мое))
            ( * ( edits + i * 10 + k ) )->Color = clYellow; // получаем доступ к эдиту в строке i и столбце k

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
 
   for( int i( 90 ), _i( 0 ); i >= 0; i -= 10 )
  {
      for( int k( 1 ); k <= 10; ++k, ++_i )
      {
          edits[ _i ] = (TEdit*)FindComponent( "Edit" + IntToStr( i + k ) );
                  edits[ _i ]->OnChange = &edits_onchange;

private:    // User declarations
TEdit * edits[ 100 ];
----------
TEdit * edit( static_cast < TEdit * > ( Sender ) );

__fastcall TForm1::TForm1(TComponent* Owner) // В конструкторе формы
    : TForm(Owner)
{
 
   for( int i( 90 ), _i( 0 ); i >= 0; i -= 10 ) // Перебор i начиная с 90 и пока i больше или равно 0, с шагом 10
  {
      for( int k( 1 ); k <= 10; ++k, ++_i ) // Перебор k от 1 до десяти с шагом 1. И одновременно с увеличением k увеличивать _i
      {
          edits[ _i ] = //                                                                                           ...и присвоить вот этому элементу массива Edit-ов
          (TEdit*) //                                                                       ...привести его к типу TEdit...
          FindComponent( "Edit" + IntToStr( i + k ) ); // Найти компонент с именем Edit и какой-то номер...
                  edits[ _i ]->OnChange = &edits_onchange; // Заменить функцию-обработчик изменения Edit-а на edits_onchange

private:    // User declarations
TEdit * edits[ 100 ]; // Массив указателей на Edit-ы. То есть каждый элемент массива может являться каким-то полем ввода
----------
TEdit * edit( static_cast < TEdit * > ( Sender ) ); // Указатель на Edit, который сразу при создании инициируется текущим вызывающем чем-либо, приведенным к типу TEdit