Мышь в виде перекрестия на весь PaintBox (Image)

while (true)
{...
}

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{int i;
 for (i = 0; i < 2000000; i++)
 Edit1 -> Text = i;
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Shape1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{PaintBox1MouseMove(NULL, Shift, Shape1 -> Left, Y);}
//---------------------------------------------------------------------------
void __fastcall TForm1::Shape2MouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{PaintBox1MouseMove(NULL, Shift, X, Shape2 -> Top);}
//---------------------------------------------------------------------------
void __fastcall TForm1::PaintBox1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{...
 // куча кода не имеющего отношения к теме
 ...
 Shape1 -> Visible = true;
 Shape1 -> Width = 1;
 Shape1 -> Height = PaintBox1 -> Height;
 Shape1 -> Top = 0;
 Shape1 -> Left = X;
 Shape2 -> Visible = true;
 Shape2 -> Height = 1;
 Shape2 -> Width = PaintBox1 -> Width;
 Shape2 -> Left = 0;
 Shape2 -> Top = Y;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{Shape1 -> Visible = false;
 Shape2 -> Visible = false;}
//---------------------------------------------------------------------------

 Shape1 -> Visible = true;
 Shape1 -> Left = X;
 Shape2 -> Visible = true;
 Shape2 -> Width = PaintBox1 -> Width - i;
 Shape2 -> Left = i;
 Shape2 -> Top = Y;

//---------------------------------------------------------------------------
void __fastcall TForm1::FormActivate(TObject *Sender)
{PaintBox1Paint(NULL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PaintBox1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{Shape1 -> Left = X;
 Shape1 -> Top = Y;
 Label1 -> Left = X;
 Label1 -> Top = Y;
 Label1 -> Caption = X;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PaintBox1Paint(TObject *Sender)
{int i, j;
 PaintBox1 -> Canvas -> Brush -> Color = clBlack;
 PaintBox1 -> Canvas -> Pen -> Color = clBlack;
 PaintBox1 -> Canvas -> Rectangle(-1, -1, PaintBox1 -> Width + 1, PaintBox1 -> Height + 1);
 PaintBox1 -> Canvas -> Pen -> Color = clWhite;
 j = 100000;
 for(i = 0; i < j; i++)
 {PaintBox1 -> Canvas -> MoveTo(i, sin(i*50) * 50 + 50);
  PaintBox1 -> Canvas -> LineTo(i + 1, sin((i+1)*50) * 50 + 50);
 }
}
//---------------------------------------------------------------------------