int TForm1::RegionGrowing1(int X,int Y)
{
    int ans=0;
    if(Image1->Canvas->Pixels[X][Y]==clBlack)
    {
      Image1->Canvas->Pixels[X][Y]=clGreen;
      Image2->Canvas->Pixels[X][Y]=clRed;
      ans=RegionGrowing1(X 1,Y) RegionGrowing1(X-1,Y);
           RegionGrowing1(X,Y 1) RegionGrowing1(X,Y-1);        }
    else
    {ans=0; return ans;}
    return ans;
}