HRGN, CombineRgn. Программа работает некоторое время и виснит.

//Unit1.h
struct GPS
{
    short x;
    short y;
};
enum NAMEOBJECT
{
    PLAYER = 0,
    SOLDER
};
void ShowRegionByName(HRGN hRgn, GPS gps, NAMEOBJECT name) {
 
 
    switch (name)
    {
        case PLAYER :
            break;
        case SOLDER :
            TPoint tp[29];
            tp[0] = TPoint(21,0);
            tp[1] = TPoint(30,0);
            tp[2] = TPoint(34,5);
            tp[3] = TPoint(34,11);
            tp[4] = TPoint(30,14);
            tp[5] = TPoint(37,8);
            tp[6] = TPoint(37,33);
            tp[7] = TPoint(34,44);
            tp[8] = TPoint(31,72);
            tp[9] = TPoint(34,77);
            tp[10] = TPoint(34,60);     //
            tp[11] = TPoint(26,60);     //
            tp[12] = TPoint(28,60);      //
            tp[13] = TPoint(25,60);      //
            tp[14] = TPoint(25,64);
            tp[15] = TPoint(21,72);
            tp[16] = TPoint(20,60);      //
            tp[17] = TPoint(19,69);      //
            tp[18] = TPoint(11,68);      //
            tp[19] = TPoint(12,54);      //
            tp[20] = TPoint(13,78);
            tp[21] = TPoint(14,65);
            tp[22] = TPoint(10,63);
            tp[23] = TPoint(3,68);
            tp[24] = TPoint(7,58);
            tp[25] = TPoint(13,46);
            tp[26] = TPoint(17,20);
            tp[27] = TPoint(21,17);
            tp[28] = TPoint(18,4);
            hRgn = CreatePolygonRgn(tp,29,WINDING);
            OffsetRgn(hRgn, gps.x, gps.y);
            break;
 
    }
 
 
}
 
int result;
bool RegionX(GPS pos, NAMEOBJECT name) {
    HRGN temp, temp1, temp2;
    ShowRegionByName(temp1,pos,name);
    GPS poss;
    poss.x = Random(100);
    poss.y = Random(100);
    ShowRegionByName(temp2,poss,SOLDER);
    return CombineRgn( temp,temp1,temp2,RGN_AND);
}

//OnCreate(Form1)
result = 0;

//OnTime (Timer1)
    for (int i = 0; i < 100; i++) {
        GPS newpos;
        newpos.x=Random(100);
        newpos.y=Random(100);
        if (RegionX(newpos,SOLDER))
        {
            result++;
        }
    }
    Form1->Caption= result;

    HRGN temp;
    HRGN temp1;
    HRGN temp2;
 
 
 
    temp1 = CreateRectRgn(10,10,100,100);
    temp2 = CreateRectRgn(20,20,110,110);
 
           bool BOOL = (bool)CombineRgn(temp,temp1,temp2,RGN_AND);
    DeleteObject(temp);
    DeleteObject(temp1);
    DeleteObject(temp2);
    ShowMessage(BoolToStr(BOOL));

    HRGN temp;
    HRGN temp1;
    HRGN temp2;
 
 
    temp = CreateRectRgn(0,0,0,0);  //с этим работает
    temp1 = CreateRectRgn(10,10,100,100);
    temp2 = CreateRectRgn(20,20,110,110);
 
           bool BOOL = (bool)CombineRgn(temp,temp1,temp2,RGN_AND);
    DeleteObject(temp);
    DeleteObject(temp1);
    DeleteObject(temp2);
    ShowMessage(BoolToStr(BOOL));