TChart: как покрасить область на графике, выделенную мышью

       void __fastcall TForm2::Chart2MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
 
    SetCursorPos(Form2->Left + Chart2->Left + X,    Form2->Top + Chart2->Top + Y);
 
    double x0 = Series2->XScreenToValue(Chart2->Zoom->X0);
    double y0 = Series2->XScreenToValue(Chart2->Zoom->Y0);
    double x1 = Series2->XScreenToValue(Chart2->Zoom->X1);
    double y1 = Series2->XScreenToValue(Chart2->Zoom->Y1);
 
// ищем точки на графике, попадающие в выбранный прямоугольник
    for (int i = 0; i < 20; i++)
    {
        if (((Xs2[i] > x0) && ((Xs2[i] < x1))) &&  ((Ys2[i] > y0) && ((Ys2[i] < y1))))
           Series2->AddXY(Xs2[i], Ys2[i], i, clFuchsia); // попавшие красим в фиолетовый
        else
           Series2->AddXY(Xs2[i], Ys2[i], i, clBlack);  // не попавшие - в чёрный
    }

class TForm1 : public TForm
{
__published:    // IDE-managed Components
// ...
private:    // User declarations
    TRect R;
    void DrawRect();
}

void TForm1::DrawRect()
{
    Chart1->Canvas->Pen->Color = clRed;
    Chart1->Canvas->Pen->Mode = pmXor;
    Chart1->Canvas->Line(Point(R.Left, R.Top), Point(R.Right, R.Top));
    Chart1->Canvas->Line(Point(R.Right, R.Top), Point(R.Right, R.Bottom));
    Chart1->Canvas->Line(Point(R.Right, R.Bottom), Point(R.Left, R.Bottom));
    Chart1->Canvas->Line(Point(R.Left, R.Bottom), Point(R.Left, R.Top));
}
 
bool ms_dn = false;
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Chart1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    ms_dn = true;
    R = Rect(X, Y, X, Y);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Chart1MouseMove(TObject *Sender, TShiftState Shift, int X,
          int Y)
{
    if(ms_dn)
    {
        DrawRect();
        R.Right = X; R.Bottom = Y;
        DrawRect();
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Chart1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    ms_dn = false;
    DrawRect(); // стираем рамку
 
    // А вот тут уже делать то, что делалось ранее у тебя в коде
}