Как сделать чтоб когда разворачиваеш програму на весь экран чтоб Edit1 увеличивался

Edit1->Width = Form1-> Width - 300;

Edit1->AutoSize= false;
Edit1->ParentFont= false;
Edit1->ScaleBy(2,1);

//---------------------------------------------------------------------------
void __fastcall TForm1::FormCanResize(TObject *Sender, int &NewWidth, int &NewHeight,
                    bool &Resize)
{
Edit1->ScaleBy(NewWidth,Width);
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseWheelDown(TObject *Sender, TShiftState Shift, TPoint &MousePos,
                    bool &Handled)
{
if(Edit1->Focused() && Shift.Contains(ssCtrl) ) Edit1->ScaleBy(11,10);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseWheelUp(TObject *Sender, TShiftState Shift, TPoint &MousePos,
                    bool &Handled)
{
if(Edit1->Focused() && Shift.Contains(ssCtrl) ) Edit1->ScaleBy(10,11);
}
//---------------------------------------------------------------------------