ny Type

type
  TMyEnum = (meOne, meTwo, meThree, meFour);

procedure TForm1.AddToStrings(aStrings: TStrings);
var
  i: TMyEnum;
begin
  aStrings.BeginUpdate;
  try
    aStrings.Clear;

    // Et vanligt gennemløb
    for i := low(TMyEnum) to high(TMyEnum) do
      aStrings.AddObject(GetEnumName(TypeInfo(TMyEnum),integer(i)),TObject(i));

    // Man burde kunne gøre dette, men ak. Syntaksen vokser ikke ind i himlen
    //  for i in TMyEnum do ..

    // Men man kan godt for sæt af enums:
    for i in [meOne, meThree] do
      aStrings.AddObject(GetEnumName(TypeInfo(TMyEnum),integer(i)),TObject(i));
  finally
    aStrings.EndUpdate;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  AddToStrings(lbNames.Items);
end;

var
  i: TMyEnum;
begin
  with ListBox do
    if ItemIndex >= 0 then
    begin
      i := TMyEnum(Items.Objects[ItemIndex]);
      ...
    end;
end;

procedure TForm1.lbNamesClick(Sender: TObject);
var
  i: TMyEnum;
begin
  with (Sender as TListBox) do
    if ItemIndex >= 0 then
    begin
      case TMyEnum(GetEnumValue(TypeInfo(TMyEnum),Items[ItemIndex])) of
        meOne  : lStatus.Caption := '1';
        meTwo  : lStatus.Caption := '2';
        meThree : lStatus.Caption := '3';
        meFour  : lStatus.Caption := '4';
      end;
    end;
end;