Control Multiple Inheritance

  class TControl:TComponent
  {
    TWinControl FParent;
  }

  class TPaint:TControl
  {
    TCanvas: FCanvas;
    virtual void Paint();
  }

  class TWinControl:TControl
  {
    HWnd FHandle;
  }

  class TCustomControl:TWinControl,TPaint
  {
  }

  class TGraphicControl:TControl,TPaint
  {
  }

  class TMButton:TPaint
    TBitmap: FGlyph;
    TTimer: FTimer;
    string FCaption;
  end;

  class TButton:TCustomControl,TMButton
  {
  }
  class TSpeedButton:TGraphicControl,TMButton
  {
  }