Растягивание формы

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int downed; //1-левая сторона 2-правая 3-верх  4-низ
int thickness=5;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
downed=0;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
if(X>=Form1->Width-thickness)
        {
        downed=1;
        }
if(X<=thickness)
        {
        downed=2;
        }
if(Y>=Form1->Height-thickness)
        {
        downed=4;
        }
if(Y<=thickness)
        {
        downed=3;
        }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
downed=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if(downed==1)
        {
        Form1->Width=X;
        }else
if(downed==2)
        {
        int dx=Mouse->CursorPos.x-Form1->Left;
        Form1->Left=Mouse->CursorPos.x;
        Form1->Width-=dx;
        }else
if(downed==3)
        {
        int dy=Mouse->CursorPos.y-Form1->Top;
        Form1->Top=Mouse->CursorPos.y;
        Form1->Height-=dy;
        }
if(downed==4)
        {
        Form1->Height=Y;
        }
}
//---------------------------------------------------------------------------