sp;                   FigureWorkSheet[j-(4-TempFigureHorizonMaxSize)][k]:=TempFigureWorkSheet[k][5-j];
                    if GlassWorkSheet[FigureWorkSheetPos div 20+j-(4-TempFigureHorizonMaxSize)][FigureWorkSheetPos div 20+k]=1 then
                      CanRotate:=False;
                    if GlassWorkSheet[FigureWorkSheetPos div 20+j][FigureWorkSheetPos div 20+k+1]=1 then
                      CanRotate:=False; 
                  end;
            if (not CanRotate) then
              FigureWorkSheet:=TempFigureWorkSheet;    
            DrawFigureWorkSheet;
          end;
               
      end;   
  end;
           
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  StopTime:LongInt;
begin
  StopTime:=GetTickCount div 1000;
  while ((GetTickCount div 1000)<(StopTime+3)) do
    Sleep(1);
  label4.Caption:=IntToStr(0);
  Label5.Caption:=IntToStr(1);
  NextFigureType:=ftNull;
  InitialGlassWorkSheet;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  DrawFigureWorkSheet;         //画当前方块
  DrawGlassWorkSheet;          //画游戏区
  DrawNextFigureWorkSheet;     //画下一个方块
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.ShowModal;
end;

procedure TForm1.tmrDropFigureTimer(Sender: TObject);
var
  i,j,k,l,m,n:Integer;
  IsAFullRow:Boolean;
  TotalFullRowNum:Integer;
begin
  if      StrToInt(Label4.Caption)>2700 then
    begin
      tmrDropFigure.Interval:=75;
      Label5.Caption:=IntToStr(10);
    end
  else if StrToInt(Label4.Caption)>2400 then
    begin
      tmrDropFigure.Interval:=90;
      Label5.Caption:=IntToStr(9);
    end
  else if StrToInt(Label4.Caption)>2100 then
&nb