Case

function FltToInt(const Flt: TLookupFlt): Integer;
begin
  case Flt of
    lfCategory:   Result:= 9;
    lfUnit:       Result:= 21;
    lfDesign:     Result:= 10;
    lfField:      Result:= 15;
    lfType:       Result:= 14;
    lfOrigin:     Result:= 11;
    lfContent:    Result:= 12;
    lfCondition:  Result:= 13;
    lfColor:      Result:= 8;
    lfShape:      Result:= 30;
    lfStyle:      Result:= 31;
  end;
end;

function IntToFlt(const Val: Integer): TLookupFlt;
begin
  case Val of
    9: Result:= lfCategory;
    21: Result:= lfUnit;
    10: Result:= lfDesign;
    15: Result:= lfField;
    14: Result:= lfType;
    11: Result:= lfOrigin;
    12: Result:= lfContent;
    13: Result:= lfCondition;
    8: Result:= lfColor;
    30: Result:= lfShape;
    31: Result:= lfStyle;
  end;
end;