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

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;
}
//---------------------------------------------------------------------------

      K = this->Width/DefWith;

      K = this->Width/static_cast<float>(DefWith);

for( int i = 0; i < this->ComponentCount; i++ )
        if ( this->Components[i]->ClassNameIs( "TComboBox" ) )

if (this->Width > DefWith)

if (this->Width == DefWith)

static_cast<TComboBox*>( this->Components[i] )->Width = K * static_cast<TComboBox*>( this->Components[i] )->Width;

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    TStringGrid *SG;
    TComboBox *CB;
    SG = new TStringGrid(Form1);
    SG->Parent = Form1;
    SG->Align = alClient;
    CB = new TComboBox(SG);
    CB->Parent = SG;
    CB->BoundsRect = SG->CellRect(1,1);
    CB->Items->Add("Test");
}

#include <Grids.hpp>

   int row;
   TComboBox *CB;
 
   for (row = 1; row < Form1->sg_SecGrid->RowCount; row++)
   {
      CB = new TComboBox(Form1->sg_SecGrid);
      CB->Parent = Form1->sg_SecGrid;
      CB->DropDownCount = 3;
      CB->Style = csDropDownList;
      CB->BoundsRect = Form1->sg_SecGrid->CellRect(2,row);
      CB->Items->DelimitedText=",,";
      CB->Items->Strings[0]="Один";
      CB->Items->Strings[1]="Два";
      CB->Items->Strings[2]="Три";
      CB->ItemIndex = 0;
   }

CB->Width = Form1->sg_SecGrid->ColWidths[col];

CB->BoundsRect = SG->CellRect(1,1);