HRGN CreateRgnFromBitmap (Graphics:: TBitmap *bmp, TPoint pPoint, bool bEqaul = true) 
{ 
int f, x, y; 
bool b = false; 
HRGN Rgn, ResRgn = CreateRectRgn (0, 0, 0, 0); 
for (y = 0; y <bmp-> Height; y ++) 
 for (x = 0; x <bmp-> Width; x ++)  
 { 
   if (! bEqaul ^ (bmp-> Canvas-> Pixels [x] [y]! = bmp-> Canvas-> Pixels [pPoint.x] [pPoint.y]))  
   { 
     if (! b)  
      { f = x; b = true;} 
     else 
       if (x == (bmp-> Width - 1))  
       { 
         Rgn = CreateRectRgn (f, y, x, y + 1); 
         CombineRgn (ResRgn, ResRgn, Rgn, RGN_OR); 
         b = false; 
       }
   }
   else 
     if (b) 
     { 
       Rgn = CreateRectRgn (f, y, x, y + 1); 
       CombineRgn (ResRgn, ResRgn, Rgn, RGN_OR); 
       b = false; 
     }
 }
return ResRgn; 
}