// Удаление максимальной позиции
procedure TfmNewStage.btDelPosClick(Sender: TObject);
var
  i: integer; // Номер последнего элемента
begin
  btDelPos.Enabled := false;
  i := Length(EditArr) - 1; // Последний элемент
  // Если переключений больше 1
  if Length(LabelArr) > 1 then
  begin
    udSwitchCount.Position := udSwitchCount.Position - 1; // Уменьшить счетчик
    // Удалить контролы последнего переключения
    UDArr[i].Free;
    EditArr[i].Free;
    LabelArr[i].Free;
    UDPosArr[i].Free;
    EditPosArr[i].Free;
    LabelSecArr[i].Free;
    // Уменьшить массив
    SetLength(EditArr, Length(EditArr) - 1);
    SetLength(LabelArr, Length(LabelArr) - 1);
    SetLength(LabelArr, Length(LabelSecArr) - 1);
    SetLength(UDArr, Length(UDArr) - 1);
    SetLength(EditPosArr, Length(EditPosArr) - 1);
    SetLength(UDPosArr, Length(UDPosArr) - 1);
    // Изменить название этапа
    leStageName.Text := 'ПК ' + IntToStr(udSwitchCount.Position) + ' перекл.';
    // Перестроить превью
    ChartReplot;
  end;
  // Управление кнопкой
  if Length(LabelArr) <= 1 then
    btDelPos.Enabled := false
  else
    btDelPos.Enabled := True;
end;