1:
2:
3:
4:
5:

  TTagRec = record
    Typ: TTagTypen;
    Desc: String;
    max: Integer;
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

const
  TTagArray: Array[TTag2] of TTagRec = (
    (Typ:ttString; Desc:'Objekt-Name';max:64),
    (Typ:ttString; Desc:'Bearbeitungsstatus';max:64),
    (Typ:ttInt; Desc:'Dringlichkeit';max:1),
    (Typ:ttString; Desc:'Kategorie';max:3),
    (Typ:ttString; Desc:'Ergänzende Kategorie';max:32),
    (Typ:ttString; Desc:'Schlüsselwort';max:64),
    (Typ:ttString; Desc:'Spezielle Anweisungen';max:256),
    (Typ:ttDate; Desc:'Erstellungsdatum';max:8),
    (Typ:ttTime; Desc:'Erstellungsuhrzeit';max:11),
    (Typ:ttDate; Desc:'Digitalisierungsdatum';max:8),
    (Typ:ttTime; Desc:'Digitalisierungsuhrzeit';max:11),
    (Typ:ttString; Desc:'Ursprungsprogramm';max:32),
    (Typ:ttString; Desc:'Ersteller';max:32),
    (Typ:ttString; Desc:'Ersteller-Titel';max:32),
    (Typ:ttString; Desc:'Stadt/Ort';max:32),
    (Typ:ttString; Desc:'Ortsdetail';max:32),
    (Typ:ttString; Desc:'Bundesland';max:32),
    (Typ:ttString; Desc:'ISO-Ländercode';max:3),
    (Typ:ttString; Desc:'Land';max:64),
    (Typ:ttString; Desc:'Original-Übertragungs-Referenz';max:32),
    (Typ:ttString; Desc:'Überschrift';max:256),
    (Typ:ttString; Desc:'Anbieter';max:32),
    (Typ:ttString; Desc:'Quelle';max:32),
    (Typ:ttString; Desc:'Urheberrechtsvermerk';max:128),
    (Typ:ttString; Desc:'Kontakt';max:128),
    (Typ:ttString; Desc:'Beschreibung';max:2000),
    (Typ:ttString; Desc:'Autor';max:32)
  );                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

  TTag2 = (
    ti2ObjectName                  =   5, //e.g. 'Ferry Sinks' (nice and blunt then...)
    ti2EditStatus                  =   7, //e.g. 'Lead', 'CORRECTION'
    ti2Urgency                     =  10,
    ti2Category                    =  15,
    ti2SupplementaryCategory       =  20, //repeatable
    ti2Keyword                     =  25, //repeatable (one keyword per instance)
    ti2SpecialInstructions         =  40,
    ti2DateCreated                 =  55, //YYYYMMDD; 'to designate the date the intellectual content of the objectdata was created rather than the date of the creation of the physical representation' (IPTC spec)
    ti2TimeCreated                 =  60, //HHMMSS±HHMM
    ti2DigitalCreationDate         =  62, //YYYYMMDD
    ti2DigitalCreationTime         =  63, //HHMMSS±HHMM
    ti2OriginatingProgram          =  65,
    ti2Byline                      =  80, //repeatable
    ti2BylineTitle                 =  85, //e.g. 'Staff Photographer', repeatable
    ti2City                        =  90,
    ti2SubLocation                 =  92,
    ti2ProvinceOrState             =  95,
    ti2CountryCode                 = 100, //three-letter code
    ti2CountryName                 = 101, //three-letter code
    ti2OriginalTransmissionRef     = 103,
    ti2Headline                    = 105,
    ti2Credit                      = 110,
    ti2Source                      = 115,
    ti2CopyrightNotice             = 116,
    ti2Contact                     = 118, //repeatable
    ti2CaptionOrAbstract           = 120,
    ti2WriterOrEditor              = 122  //repeatable
  );                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

  TTag2 = (
    ti2Nichts                      = 0,
    ti2ObjectName                  = 1, //  5, //e.g. 'Ferry Sinks' (nice and blunt then...)
    ti2EditStatus                  = 2, //  7, //e.g. 'Lead', 'CORRECTION'
    ti2Urgency                     = 3, // 10,
    ti2Category                    = 4, // 15,
    ti2SupplementaryCategory       = 5, // 20, //repeatable
    ti2Keyword                     = 6, // 25, //repeatable (one keyword per instance)
...
  );

  TTag2Helper = record helper for TTag2
    function ToInteger: Integer;
    function FromInteger(const AValue: Integer): TTag2;
  end;

function TTag2Helper.ToInteger: Integer;
begin
  case Self of
    ti2ObjectName:
      Result := 5; 
    ti2EditStatus:
      Result := 7; 
    ...
  end;
end;

function TTag2Helper.FromInteger(const AValue: Integer): TTag2;
begin
  if (AValue = 5) then
    Result := ti2ObjectName
  else if (AValue = 7) then
    Result := ti2EditStatus
  ...
end;                    

1:
2:

var
  tta: Array[TTag2] of TTagRec;