nbsp;   end 
          else
            begin
              x1:=FigureWorkSheetPos+(j-1)*20;
              y1:=FigureWorkSheetPos+(i-1)*20;
              x2:=FigureWorkSheetPos+(j-1)*20;
              y2:=FigureWorkSheetPos+(i-1)*20;
              newrect:=rect(x1+1,Y1+1,x2-1,y2-1);
              Canvas.Brush.Color:=FigureColor;
              Canvas.FillRect(newrect);
              Canvas.Pen.Color:=clGray;
              Canvas.MoveTo(x1,y1);
              Canvas.LineTo(x1,y2-1);
              Canvas.LineTo(x2-1,y2-1);
              Canvas.Pen.Color:=clWhite;
              Canvas.LineTo(x2-1,y1);
              Canvas.LineTo(x1,y1);
            end;
      end;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  j,k:integer;
  CanMoveDown,CanMoveLeft,CanMoveRight,CanRotate:Boolean;
  TempFigureHorizonMaxSize:Integer;
begin
  CanMoveDown:=True; 
  CanMoveLeft:=True;
  CanMoveRight:=True;
  CanRotate:=True;
  case Key of
    80:         //P
      begin
        tmrDropFigure.Enabled:=not tmrDropFigure.Enabled;
      end;
    83:         //S
      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+1][FigureWorkSheetPos div 20+j]=1 then  
              &nbs