Interface um Componenten-Properties zu verallgemeinern?

[Leuselator]

Nach dem Anlesen der Links aus diesem Thread kommt mir nun die Idee, Interfaces zu benutzen, um die Properties meiner eigenen Komponenten leichter handhabbar zu machen. Also dachte ich:

Delphi-Quellcode:

type 
  ILsAssociate = Interface
    ['{9D77B5ED-5C4D-4725-BFC6-3089D57F218C}']
    function  GetAsso: TLsParent;
    procedure SetAsso(const Value: TLsParent);
    property Associate: TWincontrol read GetAsso write SetAsso;
  end;

  TLsDummy = class(TCustomControl,ILsAssociate)
  private
    FAssociate        : TWincontrol;
  protected
    procedure SetAsso(const Value: TWincontrol ); // implem. für Interface
    function  GetAsso            : TWincontrol;   // dto.
    ...
  end;

  TLsDummyUser = Class(TPanel)
  private
    FEdit  : TEdit;
    FDummy : TLsDummy;
  protected
  public
    constructor Create(AOwner : TComponent); override;
  published
  end;

implementation

TLsDummyUser.Create(AOwner : TControl);
begin
  inherited;
  FEdit := TEdit.Create(self);
  FDummy := TLsDummy.Create(self);
  FDummy.Associate := FEdit; // <--- und genau das macht er nicht
  ...
end;

hmm - irgendwie schnuckt das also nicht so - wer kann mich erleuchten?