p; begin
                  CanMoveDown:=False;
                  Break;
                end;
        if ((FigureWorkSheetPos+FigureVerticalMaxSize*20)<461)and CanMoveDown then
          begin       
            ClearFigureWorkSheet;
            FigureWorkSheetPos:=FigureWorkSheetPos+20;
            FigureWorkSheetPos:=FigureWorkSheetPos+20;
            DrawFigureWorkSheet;       
          end;       
      end;
    65:         //A
      if tmrDropFigure.Enabled then
      begin
        for k:=1 to 4 do
          for j:=1 to 4 do
            if FigureWorkSheet[k][j]=1 then
              if GlassWorkSheet[FigureWorkSheetPos div 20+k][FigureWorkSheetPos div 20+j-1]=1 then  
                begin
                  CanMoveLeft:=False;
                  Break;
                end;
        if (FigureWorkSheetPos>1)and CanMoveLeft then
          begin
            ClearFigureWorkSheet;
            FigureWorkSheetPos:=FigureWorkSheetPos-20;
            FigureWorkSheetPos:=FigureWorkSheetPos-20;       
            DrawFigureWorkSheet;
          end;         
      end;   
    68:          //D
      if tmrDro