Iterating IOTAEnvironmentOptions

The following code in the unit of a package demonstrates how to iterate the names of the environment options in the Delphi IDE

procedure Register;
var
  LOTAServices: IOTAServices;
  LEnvironmentOptions: IOTAEnvironmentOptions;
  LOptionNames: TOTAOptionNameArray;
  LOptionName: TOTAOptionName;
  SL: TStringList;
  LKind, LName, Line: string;
begin
  if Supports(BorlandIDEServices, IOTAServices, LOTAServices) then
    begin
      LEnvironmentOptions := LOTAServices.GetEnvironmentOptions;
      LOptionNames := LEnvironmentOptions.GetOptionNames;
      SL := TStringList.Create;
      for LOptionName in LOptionNames do
        begin
          LKind := GetEnumName(typeinfo(TTypeKind), Ord(LOptionName.Kind));
          LName := LOptionName.Name;
          Line :=
Format('<tr>'#13#10+
'<td>%s</td>'#13#10+
'<td>%s</td>'#13#10+
'</tr>'#13#10, [LName, LKind]);
          SL.Add(Line);
        end;
      SL.Sort;
      Clipboard.AsText := SL.Text;
      SL.Free;
    end;
end;