Hola...
Desde Delphi 2010 (si más no recuerdo), existe la clase
TCustomAttribute la cual sirve para lograr lo que quieres. Esta clase se puede usar junto con el RTTI extendido para obtener los valores en tiempo de ejecución.
Un pequeño ejemplo:
Código Delphi
[-]
PrimaryKey = class(TCustomAttribute);
TMyObject = class
[PrimaryKey]
Key: Integer;
end;
Aquí puedes buscar más información:
Introducing Attributes.
También en la ayuda de Delphi puedes buscar más información.
Saludos...