byte *ptr;
        Image1->Picture->Bitmap->PixelFormat=pf24bit;
        for(int i=0;i<100;i++)
        {
                ptr=(Byte*)Image1->Picture->Bitmap->ScanLine[i];
                for(int j=0;j<100;j++){
                  int b = ptr[j*3];
                  int g = ptr[j*3+1];
                  int r = ptr[j*3+2];
                    if(r>g && r>b){
                    start_x=i;
                    start_y=j;
                    i=i+400;
                    j=j+400;
                    }
                    else
                    ShowMessage("找不到");
                }            }             Image1->Canvas->Pen->Color = clYellow;
         Image1->Canvas->Brush->Style=bsClear;
         Image1->Canvas->Rectangle(start_x,start_y,start_x+100,start_y+100);