Delphi-PRAXiS - Readonly interface erzeugen (MMX?)

Gibt es bei Interfaces auch die Möglichkeit Property zu erweitern, so wie bei Objeken?

Die Property sind ja eine Delphi-Sache ... das Windows-Interface hat ja offiziell nicht sowas.

Delphi-Quellcode:

			type

  IReadOnlyData = interface

    ['{7F08C18E-0E6A-40F1-9DD9-AFDDA473FB8B}']

    function GetActualValue(const p_Component: Byte): double;

    function GetCurrentActual(): IActualValue;

    function GetDefaultBehaviourMode(): String;

    property DefaultBehaviourMode: String read GetDefaultBehaviourMode;

    property CurrentActual: IActualValue read GetCurrentActual;

    property ActualValue[const p_Component: Byte]: double read GetActualValue;

  end;

  IData = interface( IReadOnlyData )

    ['{E9154DD9-A28E-4703-9DD8-5181A27869E2}']

    procedure SetActualValue(const p_Component: Byte; const p_Value : double);

    procedure SetCurrentActual(const p_Value: IActualValue);

    procedure SetDefaultBehaviourMode(const p_Value: String);

    property DefaultBehaviourMode write SetDefaultBehaviourMode;

    property CurrentActual write SetCurrentActual;

    property ActualValue write SetActualValue;

  end;