sp;   begin
      tmrDropFigure.Interval:=110;
      Label5.Caption:=IntToStr(8);
    end
  else if StrToInt(Label4.Caption)>1800 then
    begin
      tmrDropFigure.Interval:=130;
      Label5.Caption:=IntToStr(7);
    end 
  else if StrToInt(Label4.Caption)>1500 then
    begin
      tmrDropFigure.Interval:=160;
      Label5.Caption:=IntToStr(6);
    end 
  else if StrToInt(Label4.Caption)>1200 then
    begin
      tmrDropFigure.Interval:=200;
      Label5.Caption:=IntToStr(5);
    end 
  else if StrToInt(Label4.Caption)>900 then
    begin
      tmrDropFigure.Interval:=300;
      Label5.Caption:=IntToStr(4);
    end 
  else if StrToInt(Label4.Caption)>600 then
    begin
      tmrDropFigure.Interval:=450;
      Label5.Caption:=IntToStr(3);
    end 
  else if StrToInt(Label4.Caption)>300 then
    begin
      tmrDropFigure.Interval:=110;
      Label5.Caption:=IntToStr(2);
    end;  

   

  for l:=1 to 4 do
    for j:=1 to 4 do
      if FigureWorkSheet[l][j]=1 then
        if GlassWorkSheet[FigureWorkSheetPos div 20+l+1][FigureWorkSheetPos div 20+j]=1 then 
        //看积木格子的下一个游戏区域中的格子是否为1,所以在条件判断的时候有一个"+1".
          begin
            for i:=1 to 4 do
              for k:=1 to 4 do
                if FigureWorkSheet[i][k]=1 then
                  begin
                    GlassWorkSheet[FigureWorkSheetPos div 20+i][FigureWorkSheetPos div 20+k]:=1;
                    GlassWorkSheetColor[FigureWorkSheetPos div 20+i][FigureWorkSheetPos div 20+k]:=FigureColor;
                  end;

            TotalFullRowNum:=0;
      &nb