мелькает курсор

void __fastcall TForm1::Chart2MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
int q=X;
int e=Y;
if (q<=5)Chart2->Cursor=crSizeWE;
if (q>=Chart2->Width-5)Chart2->Cursor=crSizeWE;
if (e<=5)Chart2->Cursor=crSizeNS;
if (e>=Chart2->Height-5)Chart2->Cursor=crSizeNS;
if ((q>5)&(q<Chart2->Width-5)&(e>5)&(e<Chart2->Height-3))
 {
  if (Shift.Contains(ssLeft)==false)Chart2->Cursor=crDefault;
  else Chart2->Cursor=crSizeAll;
 }
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TForm1::Chart2MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
a=X;
b=Y;
w=Chart2->Width;
h=Chart2->Height;
t=Chart2->Top;
l=Chart2->Left;
if (Shift.Contains(ssLeft))
{
 if (a<=3)Form1->Chart2->OnMouseMove=Chart2MouseMovL;
 if (a>=Chart2->Width-3)Form1->Chart2->OnMouseMove=Chart2MouseMovW;
 if (b<=3)Form1->Chart2->OnMouseMove=Chart2MouseMovT;
 if (b>=Chart2->Height-3)Form1->Chart2->OnMouseMove=Chart2MouseMovH;
 if ((a>3)&(a<Chart2->Width-3)&(b>3)&(b<Chart2->Height-3))
 {
  Form1->Image1->OnMouseMove=Chart2MouseMov;
 }
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Chart2MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
Chart2->OnMouseMove=Chart2MouseMove;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Chart2MouseMovL(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if (Shift.Contains(ssLeft))
{
  int z=X;
  Chart2->Left=Chart2->Left-a+z;
  Chart2->Width=Chart2->Width+a-z;
  if (Chart2->Width<6)
  {
   Chart2->Width=6;
   Chart2->Left=l+w-6;
  }
}
}
//правая сторона----------------------------------------------------------
 
void __fastcall TForm1::Chart2MouseMovW(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if (Shift.Contains(ssLeft))
{
  int z=X;
  Chart2->Width=Chart2->Width+(z-Chart2->Width);
  if (Chart2->Width<6) Chart2->Width=6;
}
}
//верхняя сторона---------------------------------------------------------
 
void __fastcall TForm1::Chart2MouseMovT(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if (Shift.Contains(ssLeft))
{
  int c=Y;
  Chart2->Top=Chart2->Top-b+c;
  Chart2->Height=Chart2->Height+b-c;
  if (Chart2->Height<6)
  {
   Chart2->Height=6;
   Chart2->Top=t+h-6;
  }
}
}
//нижняя сторона---------------------------------------------------------
void __fastcall TForm1::Chart2MouseMovH(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if (Shift.Contains(ssLeft))
{
  int c=Y;
  Chart2->Height=Chart2->Height+(c-Chart2->Height);
  if (Chart2->Height<6)Chart2->Height=6;
}
}
//перемещение------------------------------------------------------------
void __fastcall TForm1::Chart2MouseMov(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if (Shift.Contains(ssLeft))
{
  int z=X;
  int c=Y;
  Chart2->Left=Chart2->Left-a+z;
  Chart2->Top=Chart2->Top-b+c;
}
}