Задать уровень сжатия для SevenZipVCL из ComboBox

[Shouldercannon]

Хочу задавать уровень сжатия из ComboBox, но не получается (E2010 Incompatible types: 'TCompressStrength' and 'TCaption'). Вот, что нашёл в pas-файле SevenZipVCL

FCompstrength: TCompressStrength;
TCompressStrength = ( SAVE,FAST,NORMAL,MAXIMUM,ULTRA );

Недогадаюсь через что пропустить содержимое ComboBox, чтобы его принял SevenZipVCL.

[Пепел Феникса]

через case самое тупое))

а так можно посмотреть на RTTI работу с перечислениями.

[Yurk@]

возможно "SAVE,FAST,NORMAL,MAXIMUM,ULTRA " - имеют определённые числовые значения (как TColor) которые и нужно задавать

с того же файла:

  function SevenZipCompressionStrengthInt( cs: TCompressStrength ): Cardinal;
  begin
    case cs of
      SAVE: result := 0;
      FAST: result := 3;
      NORMAL: result := 5;
      MAXIMUM: result := 7;
      ULTRA: result := 9;
    else
      result := 5;
    end;
  end;