ostr(strtoint(Label4.Caption)+3);
              ftStick   :
                        Label4.Caption:=inttostr(strtoint(Label4.Caption)+1);
              ftBox     :
                        Label4.Caption:=inttostr(strtoint(Label4.Caption)+1);
            end;

            GenerateNewFigure;
            Exit;
          end; 

  if ((FigureWorkSheetPos+FigureVerticalMaxSize*20)<461) then
    begin
      ClearFigureWorkSheet;
      FigureWorkSheetPos:=FigureWorkSheetPos+20;
      FigureWorkSheetPos:=FigureWorkSheetPos+20;
      DrawFigureWorkSheet;
    end;
  if ((FigureWorkSheetPos+FigureVerticalMaxSize*20)=461) then
    begin
      for i:=1 to 4 do
        for j:=1 to 4 do
          if FigureWorkSheet[i][j]=1 then
            begin
              GlassWorkSheet[FigureWorkSheetPos div 20+i][FigureWorkSheetPos div 20+j]:=1;
              GlassWorkSheetColor[FigureWorkSheetPos div 20+i][FigureWorkSheetPos div 20+j]:=FigureColor;
            end;

      TotalFullRowNum:=0;
           
      for m:=1 to GlassHeight do                    //
        begin                                       //
          IsAFullRow:=True;                         //
          for n:=1 to GlassWidth do