Обновления компонентов на форме

__fastcall TForm4::TForm1(TComponent* Owner)
    : TForm(Owner)
{
DoubleBuffered = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Label2MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
x1 = X;
y1 = Y;
Labe2->Tag = 1;
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Label2MouseMove(TObject *Sender, TShiftState Shift, int X,
          int Y)
{
if(Label2->Tag)
  {
  Form4->Width = Form1->Width - x1 + X;
  Form4->Height = Form1->Height - y1 + Y;
  Form4->Repaint();
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Label2MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
Label2->Tag = 0;
}