Foros Club Delphi - Creación de componente

Hola a todos,

Estoy intentando crear un componente que hereda de la clase TToolBar.
He aquí el código.

Código:

unit AltiBar;



interface



uses

  SysUtils, Classes, Controls, ToolWin, ComCtrls, StdCtrls, Dialogs;



const

  Cte_Min_Panel_Width = 250;

  Cte_Min_Panel_Height = 100;

  Cte_Side_Margin = 8;



  Cte_Button_Height = 80;

  Cte_Button_Width = 100;



  Cte_Ctrls_Space = 1;

  Cte_Font_Size = 8;





type

  TAltiBar = class(TToolBar)

  private

    { Private declarations }

    FButtonLogin: TToolButton;

    FButtonLogout: TToolButton;

    FButtonSep1: TToolButton;

    FImageList: TImageList;

    FLogin: String;

    FPassword: String;











  protected

    { Protected declarations }



  public

    { Public declarations }

    property Login : String read FLogin write FLogin;

    property Password: String read FPassword write FPassword;





    constructor Create (AOwner: TComponent); override;

    destructor Destroy; override;



  published

    { Published declarations }

  end;



procedure Register;



implementation



procedure Register;

begin

  RegisterComponents('Sit', [TAltiBar]);

end;



constructor TAltiBar.Create(AOwner: TComponent);

begin

  inherited Create(aOwner);

  Parent:= TWinControl(aowner);



  Self.Caption := '';

  self.Height  := 100;

  self.Width   := 862;



  // Controls creation



  FButtonSep1   := TToolButton.Create(Self);

  FButtonLogin  := TToolButton.Create(Self);

  FButtonLogout := TToolButton.Create(Self);



  FButtonLogin.Parent  := Self;

  FButtonLogout.Parent := Self;

  FButtonSep1.Parent := Self;



  FButtonLogin.Height  := Cte_Button_Height;

  FButtonLogin.Width   := Cte_Button_Width;



  FButtonLogout.Height := Cte_Button_Height;

  FButtonLogout.Width  := Cte_Button_Width;



  FButtonSep1.Height := Cte_Button_Height;

  FButtonSep1.Width  := Cte_Button_Width;





  FButtonLogin.Caption := 'Login';

  FButtonLogin.ShowHint := True;

  FButtonLogin.Style    := tbsButton;



  FButtonSep1.Style     := tbsSeparator;



  FButtonLogout.Caption := 'Logout';

  FButtonLogout.ShowHint := True;

  FButtonLogout.Style   := tbsButton;









end;





destructor TAltiBar.Destroy;

begin

  inherited;

end;







end.

Creo una nueva aplicación, pego el componente y se ve ok, ahora bien, cuando ejecuto la nueva aplicación me dice que class TToolButton not found!!!

Alguna idea.

Saludos,

Miguel Angel