对象合成：通过获得对其它对象的引用而在运行期动态定义的。

在一个新的对象里面使用一些已有的对象，使之成为新对象的一部分，新的对象通过向这些对象的委派责任达到复用已有功能的目的。

以策略模式举例：

type

  TStrategy=class(TObject)//抽象策略

  public

    procedure Hello;virtual;abstract;

  end;

  TConcreteStrategyA=class(TStrategy)//具体策略A

  public

    procedure Hello;override;

  end;

  TConcreteStrategyB=class(TStrategy)//具体策略B

  public

    procedure Hello;override;

  end;

  TContext=class(Tobject)//上下文

  private

    FStrategy:TStrategy;//引用已有的对象

    Procedure SetStrategy(Value:TStrategy);

  public

    procedure ContextInterface;//向已有的对象委派责任

    property Strategy:TStrategy read FStrategy write SetStrategy;

  end;

implementation

procedure TConcreteStrategyA.Hello;

begin

  //do something

end;

procedure TConcreteStrategyB.Hello;

begin

  //do something

end;

procedure TContext.ContextInterface;

begin

  Strategy.Hello;

end;

procedure TContext.SetStrategy(Value:TStrategy);

begin

  FStrategy:=Value;

end;

这样在运行时通过用户给出的对象类型，系统会自动调用给定对象的具体方法。