How to decode Lv.QlmLicenseObject.GetStatus result

Following a Delphi example code for splitting the integer value returned by Lv.QlmLicenseObject.GetStatus in its separate status enums. The status enums will be returned inside the array "LicStatus".

var
  StatusEnum, LicStatus: Array of Integer;
  i, Status: Integer;

begin
  SetLength(LicStatus, 0);
  Status := Lv.QlmLicenseObject.GetStatus;
  StatusEnum := [2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048];
  repeat
    for i := High(StatusEnum) downto Low(StatusEnum) do
      begin
        if StatusEnum[i] > Status then
          SetLength(StatusEnum, Length(StatusEnum) - 1)
        else
          begin
            LicStatus := LicStatus + [StatusEnum[i]];
            Status := Status - StatusEnum[i];
            SetLength(StatusEnum, Length(StatusEnum) - 1);
          end;
      end;
  until
    Length(StatusEnum) = 0;
end;