; //
            if GlassWorkSheet[m][n]=0 then          //
              begin                                 //
                IsAFullRow:=False;                  //
                Break;                              //
              end;                                  //
          if IsAFullRow then                        //
            begin
              EraseAFullRow(m);                       //
              Inc(TotalFullRowNum);
            end;  
        end;

      case TotalFullRowNum of
        1 : Label4.Caption:=inttostr(strtoint(Label4.Caption)+10);
        2 : Label4.Caption:=inttostr(strtoint(Label4.Caption)+25);
        3 : Label4.Caption:=inttostr(strtoint(Label4.Caption)+50);
        4 : Label4.Caption:=inttostr(strtoint(Label4.Caption)+80);
      end; 
       
      case NowFigureType of
              ftTriada  :
                        Label4.Caption:=inttostr(strtoint(Label4.Caption)+2);
              ftLCorner :
           &nbs