//为什么编译时说未定义TColor;unit CircldButton;interfaceuses
  Windows, Messages, SysUtils, Classes, Controls;type
  TCircldButton = class(TGraphicControl)
  private
    fText:string;
    fBKColor:TColor;
    fTExtColor:TColor;
  protected
    procedure SetText(value:string);
    procedure SetBKColor(value:TColor);
    procedure SetTextColor(value:TColor);
  public
    procedure Paint;override;
    procedure Create(Owner:TComponent);override;
    procedure Destroy;override;
  published
    property Text:string read fText write SetText;
    property BKColor:TColor read fBKColor write SetBKColor;
    property TExtColor:TColor read fTextColor write SetTextColor;
  end;procedure Register;
...........
...........
..........