一个采鸟的问题！来帮帮忙吧！

小弟自定义了一个空件mydbgrid(就是想把原来的颜色改掉)，我已经把它安装到了组件页上，但是不能放到窗口上，不知是那步出错了，请各位大侠指教，谢谢！代码如下：
unit mydbgrid;interfaceuses
  Windows, Messages, SysUtils, Classes, Controls, Grids, DBGrids;type
  tmydbgrid = class(tdbgrid)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    { Published declarations }
  end;procedure Register;implementationprocedure Register;
begin
  RegisterComponents('mycomponent', [tmydbgrid]);
end;{ tmydbgrid }constructor tmydbgrid.Create(AOwner: TComponent);
begin
   inherited Create(AOwner);
   if DataSource.DataSet.RecNo mod 2 = 0 then
    begin
      Color := RGB(191, 255, 150);//定义背景颜色
     end
    else
      Color:= RGB(191, 255, 223); //定义背景颜色
    end;
destructor tmydbgrid.Destroy;
begin
    inherited Destroy;
end;end.