寬介面和窄介面

寬介面：
IInterFace1=interface
  //方法列表
end;

窄介面：對象介面，介面聲明和類相似，但不能直接執行個體化，也不能自己實現它們的方法，而是由支援介面的類來提供實現。
type
  TStrategy=class(TObject)//抽象策略
  public
    procedure Hello;virtual;abstract;
  end;

  TContext=class(Tobject)//上下文
  private
    FStrategy:TStrategy;//引用已有的對象(窄介面)
    Procedure SetStrategy(Value:TStrategy);
  public
    procedure ContextInterface;//向已有的對象委派責任
    property Strategy:TStrategy read FStrategy write SetStrategy;
  end;