Закраска замкнутых фигур

    TPoint tPoints[500],ttPoints[500];
    HRGN hRgn;    // регион
    bool tocka;   // проверка истины

void __fastcall TForm2::Region(TObject *Sender)
{
        // где-то в программе
        // HRGN hRgn;    // регион
        // bool tocka;   // проверка истины
         int a =0;     // так как разное количество линий в каждом регионе
 
         for (int i=0; i<StringGrid_node_range->RowCount; i++)
    {  if (StringGrid_node_range->Cells[0][i]!="" )// выбрал первый регион к примеру
        {
//записываем координаты всех имеющихся точек из StringGrid1 в tPoints для рисования
        tPoints[i].x=StrToInt(StringGrid_node_range->Cells[0][i]);// координаты Х
        tPoints[i].y=StrToInt(StringGrid_node_range->Cells[1][i]);// координаты У
          a=a+1; // общее количество запомненых координат в данном регионе
         }
    }
//
hRgn = CreatePolygonRgn(tPoints, a-1, ALTERNATE);
tocka = PtInRegion(hRgn,2343,4695); //  примерная точка
if (tocka==true) ShowMessage ("OK");//  если точка в зоне региона
 DeleteObject(hRgn);
 //Karta_rajona->Canvas->Polygon(tPoints,a-1);// непосредственно рисование полигона по точкам tPoints
}
//---------------------------------------------------------------------------

virtual void __fastcall FloodFill(int X, int Y, System::Uitypes::TColor Color, TFillStyle FillStyle);