//
                    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 :
                        Label4.Caption:=inttostr(strtoint(Label4.Caption)+3);            
              ftRCorner :
                        Label4.Caption:=inttostr(strtoint(Label4.Caption)+3);
              ftLZigzag :
                        Label4.Caption:=inttostr(strtoint(Label4.Caption)+3);
              ftRZigzag :
                        Label4.Caption:=intt