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

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

int Row, Col;
 
        virtual bool __fastcall SelectCell(int ACol, int ARow)
        {
            Col=ACol;
            Row=ARow;
            if(!IsMessageSent && GetEditStyle(ACol, ARow) == esPickList)
            {
                IsMessageSent = true;
                ::PostMessage(this->Handle, WM_USER + 1, 0, 0L);
            }
            return Grids::TCustomGrid::SelectCell(ACol, ARow);
        }
        DYNAMIC void __fastcall KeyPress(char &Key)
        {
            for (int c = 2; c < ColCount; c++)
            if (Col == c)
            {
                Key = 0; return;
            }
        }

        DYNAMIC void __fastcall KeyPress(char &Key)
        {
            if(GetEditStyle(Col, Row) == esPickList) Key = 0;
        }

void __fastcall TForm1::StringGrid1KeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
    if(Key == VK_DELETE) Key = 0; // Так же можно заглушить и другие "просочившиеся" клавиши
}

private:
        bool GetIsPickList()
        {
            return (GetEditStyle(Col, Row) == esPickList);
        }
public:
        __property bool IsPicklist = {read=GetIsPickList};

void __fastcall TForm1::StringGrid1KeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
    if(StringGrid1->IsPicklist && Key == VK_DELETE) Key = 0;
}