Задать изменение ширины всем элементам ввода окна, при изменении ширины самого окна

int DefWith;//начальный размер
float K=1, K1=1;//коэф-ты соотношения размеров
//---------------------------------------------------------------------------
void __fastcall Tfm_Nastroi::FormResize(TObject *Sender)
{
   if (this->Width > DefWith)//Увеличение ширины окна
   {
      K = this->Width/DefWith;
      K1 = K;
      for( int i = 0; i < this->ComponentCount; i++ )
        if ( this->Components[i]->ClassNameIs( "TComboBox" ) )
           static_cast<TButton*>( this->Components[i] )->Width = K * static_cast<TButton*>( this->Components[i] )->Width;
      for( int i = 0; i < this->ComponentCount; i++ )
        if ( this->Components[i]->ClassNameIs( "TEdit" ) )
           static_cast<TButton*>( this->Components[i] )->Width = K * static_cast<TButton*>( this->Components[i] )->Width;
   }
   if (this->Width == DefWith) //Возврат размера окна в исходное состояние
   {
      for( int i = 0; i < this->ComponentCount; i++ )
        if ( this->Components[i]->ClassNameIs( "TComboBox" ) )
           static_cast<TButton*>( this->Components[i] )->Width = static_cast<TButton*>( this->Components[i] )->Width/K1;
      for( int i = 0; i < this->ComponentCount; i++ )
        if ( this->Components[i]->ClassNameIs( "TEdit" ) )
           static_cast<TButton*>( this->Components[i] )->Width = static_cast<TButton*>( this->Components[i] )->Width/K1;
   }
}
//---------------------------------------------------------------------------
void __fastcall Tfm_Nastroi::FormCreate(TObject *Sender)
{
   DefWith = fm_Nastroi->Width;
}
//---------------------------------------------------------------------------

//Unit1.cpp
 
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
void TitleStringGrid();
void ComboBoxesInGrid();
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner){}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   TitleStringGrid();
   ComboBoxesInGrid();
}
//---------------------------------------------------------------------------
void TitleStringGrid()// заполнение шапки таблицы
{
   Form1->sg_SecGrid->Cells[0][0] = "  ¹ ";
   Form1->sg_SecGrid->Cells[0][1] = "   1";
   Form1->sg_SecGrid->Cells[0][2] = "   2";
   Form1->sg_SecGrid->Cells[0][3] = "   3";
   Form1->sg_SecGrid->Cells[0][4] = "   4";
   Form1->sg_SecGrid->Cells[0][5] = "   5";
   Form1->sg_SecGrid->Cells[0][6] = "   6";
   Form1->sg_SecGrid->Cells[0][7] = "   7";
   Form1->sg_SecGrid->Cells[0][8] = "   8";
   Form1->sg_SecGrid->Cells[1][0] = " Наименование ";
   Form1->sg_SecGrid->Cells[2][0] = " Вид секции ";
   Form1->sg_SecGrid->Cells[3][0] = "   СНО ";
   Form1->sg_SecGrid->Cells[4][0] = " № НДС ";
   Form1->sg_SecGrid->Cells[5][0] = " Способ расчёта";
   Form1->sg_SecGrid->Cells[6][0] = " Признак\n предм. расчёта";
   Form1->sg_SecGrid->Cells[7][0] = " Платёжный\n      Агент ";
   Form1->sg_SecGrid->Cells[8][0] = " Поставщик ";
   Form1->sg_SecGrid->Cells[9][0] = " Единицы\n измерения";
}
//---------------------------------------------------------------------------
void ComboBoxesInGrid()// вставка и зполнение ComboBox-ов в ячейки StringGrid'a
{
   int row, col;
   TComboBox *CB;
 
   for (row = 1; row < Form1->sg_SecGrid->RowCount; row++)
   {
      for (col = 2; col < Form1->sg_SecGrid->ColCount; col++)
      {
         CB = new TComboBox(Form1->sg_SecGrid);
         CB->Parent = Form1->sg_SecGrid;
         CB->DropDownCount = 11;
         CB->Style = csDropDownList;
         //CB->Width = Form1->sg_SecGrid->ColWidths[col];
         CB->BoundsRect = Form1->sg_SecGrid->CellRect(col,row);
         if (col == 2)// Вид секции
         {
            CB->Items->DelimitedText=",,";
            CB->Items->Strings[0]="Приход";
            CB->Items->Strings[1]="Закрыта";
            CB->Items->Strings[2]="Расход";
         }
         if (col == 3)// СНО
         {
            CB->Items->DelimitedText=",,,,";    //TODO: переделать значения
            CB->Items->Strings[0]="0";
            CB->Items->Strings[1]="1";
            CB->Items->Strings[2]="2";
            CB->Items->Strings[3]="3";
            CB->Items->Strings[4]="нет";
            CB->ItemIndex = 4;
         }
         if (col == 4)// № НДС
         {
            CB->Items->DelimitedText=",,,,";
            CB->Items->Strings[0]="??";
            CB->Items->Strings[1]="??";
            CB->Items->Strings[2]="??";
            CB->Items->Strings[3]="??";
            CB->Items->Strings[4]="??";
            CB->ItemIndex = 0;
         }
         if (col == 5)// Способ расчёта
         {
            CB->Items->DelimitedText=",,,,,,";
            CB->Items->Strings[0]="нет";
            CB->Items->Strings[1]="Прндопл.100%";
            CB->Items->Strings[2]="Предоплата";
            CB->Items->Strings[3]="Аванс";
            CB->Items->Strings[4]="Полный расчёт";
            CB->Items->Strings[5]="Част.расч. и кредит";
            CB->Items->Strings[6]="Оплата кредит";
            CB->ItemIndex = 0;
         }
         if (col == 6)// Признак предмета расчёта
         {
            CB->Items->DelimitedText=",,,,,,,,,,";
            CB->Items->Strings[0]="нет";
            CB->Items->Strings[1]="Товар";
            CB->Items->Strings[2]="Подакциз. товар";
            CB->Items->Strings[3]="Работа";
            CB->Items->Strings[4]="Услуга";
            CB->Items->Strings[5]="Ставка игры";
            CB->Items->Strings[6]="Выигрыш";
            CB->Items->Strings[7]="Ставка лотереи";
            CB->Items->Strings[8]="Выиг-ш лотереи";
            CB->Items->Strings[9]="Предостав. РНД";
            CB->Items->Strings[10]="Платёж/Выплата";
            CB->ItemIndex = 0;
         }
         if (col == 7)// Платеж. агент
         {
            CB->Items->DelimitedText=",,";
            CB->Items->Strings[0]="нет";
            CB->Items->Strings[1]="1";
            CB->Items->Strings[2]="2";
            CB->ItemIndex = 0;
         }
         if (col == 8)// Поставщик
         {
            CB->Items->DelimitedText=",,";
            CB->Items->Strings[0]="нет";
            CB->Items->Strings[1]="1";
            CB->Items->Strings[2]="2";
            CB->ItemIndex = 0;
         }
         if (col == 9)// Един. измерения
         {
            CB->Items->DelimitedText=",,,,";
            CB->Items->Strings[0]="нет";
            CB->Items->Strings[1]="шт.";
            CB->Items->Strings[2]="л.";
            CB->Items->Strings[3]="кг.";
            CB->Items->Strings[4]="руб.";
            CB->ItemIndex = 0;
         }
      }
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sg_SecGridDrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{//Для переноса строк в шапке странггрида
   String Text;
   if (ARow == 0)
   {
      Text = sg_SecGrid->Cells[ACol][ARow];
      sg_SecGrid->Canvas->FillRect(Rect);
      DrawText(sg_SecGrid->Canvas->Handle, Text.c_str(), Text.Length(), &Rect, DT_WORDBREAK);
   }
}
//---------------------------------------------------------------------------

//Unit1.h
 
//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Grids.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TStringGrid *sg_SecGrid;
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall sg_SecGridDrawCell(TObject *Sender, int ACol,
          int ARow, TRect &Rect, TGridDrawState State);
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

    class TStringGrid : public Grids::TStringGrid
    {
    public:
        __fastcall void SetCbxByIndex(int ACol, int ARow, int index)
        {
            std::auto_ptr<TStringList> lst(new TStringList);
            GetCbxItems(ACol, ARow, lst.get());
            Cells[ACol][ARow] = lst->Strings[index];
        }
    private:
    // дальше без изменений

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    StringGrid1->SetCbxByIndex(1, 1, 4); // будет выставлено значение с индексом = 4 из соответствующего ячейке списка
    StringGrid1->SetCbxByIndex(2, 2, 2); // а тут - с индексом = 2
}

Build
  [C++ Error] Unit1.h(19): E2316 'auto_ptr' is not a member of 'std'
  [C++ Error] Unit1.h(19): E2108 Improper use of typedef 'TStringList'
  [C++ Error] Unit1.h(19): E2268 Call to undefined function 'lst'
  [C++ Error] Unit1.h(20): E2294 Structure required on left side of . or .*
  [C++ Error] Unit1.h(21): E2288 Pointer to structure required on left side of -> or ->*

        __fastcall void SetCbxByIndex(int ACol, int ARow, int index)
        {
            if(GetEditStyle(ACol, ARow) == esPickList) // Проверяем, список ли
            {
                std::auto_ptr<TStringList> lst(new TStringList);
                GetCbxItems(ACol, ARow, lst.get());
                if(index < lst->Count) // и не вылетим ли за его пределы
                {
                    Cells[ACol][ARow] = lst->Strings[index];
                }
            }
        }

    class TStringGrid : public Grids::TStringGrid
    {
    private:
        int __fastcall GetIndexes(int ACol, int ARow)
        {
            if(GetEditStyle(ACol, ARow) == esPickList)
            {
                std::auto_ptr<TStringList> lst(new TStringList);
                GetCbxItems(ACol, ARow, lst.get());
                return lst->IndexOf(Cells[ACol][ARow]);
            }
            else return (-1);
        }
        void __fastcall SetIndexes(int ACol, int ARow, const int Value)
        {
            if(GetEditStyle(ACol, ARow) == esPickList)
            {
                std::auto_ptr<TStringList> lst(new TStringList);
                GetCbxItems(ACol, ARow, lst.get());
                if(Value < lst->Count)
                {
                    Cells[ACol][ARow] = lst->Strings[Value];
                }
            }
        }
 
    public:
        __property int Indexes[int ACol][int ARow] = {read=GetIndexes, write=SetIndexes};

    StringGrid1->Indexes[1][1] = 4; // устанавливаем "ItemIndex"
    ShowMessage(IntToStr(StringGrid1->Indexes[2][2])); // Читаем "ItemIndex"

    class TMyInplaceEditList : public TInplaceEditList
    {
    protected:
        // Это запретит ВСЕ нажатия кнопок в поле ввода выпадающего списка
        DYNAMIC void __fastcall KeyDown(/*System::*/Word &Key, /*System::*/Classes::TShiftState Shift)
        {
            Key = 0;
        }
    public:
        __fastcall virtual TMyInplaceEditList(Classes::TComponent* Owner) : TInplaceEditList(Owner)
        {
        }
 
        using Grids::TInplaceEditList::DropDown;
    };

protected:
        //Это запретит ВСЕ нажатия кнопок в поле ввода выпадающего списка
        DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift)
        {
            Key = 0; return;
        }
        DYNAMIC void __fastcall KeyPress(char &Key)
        {
            Key = 0; return;
        }

//глобальные 
int Col, Row;
 
//---------------------------------------------------------------------------
void __fastcall TForm1::sg_SecGridKeyPress(TObject *Sender, char &Key)
{
   for (int c = 2; c < Form1->sg_SecGrid->ColCount; c++)
   if (Col == c)
   {
      Key = 0; return;
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sg_SecGridSelectCell(TObject *Sender, int ACol,
      int ARow, bool &CanSelect)
{
   Col=ACol;
   Row=ARow;
}
//---------------------------------------------------------------------------