Установить самописный компонент in bds 2006

unit FileListBox;
interface
uses
Messages,
StdCtrls,
Controls,
Classes,
ComCtrls,
FLFunctions,
clsFiles,
Windows,
Graphics,
SysUtils,
ExtCtrls;

type
  TMyCustomFileListBox = class (TListBox)
  private
    FMyIndex: Integer;
    FCanvas: TCanvas;
...
    FFiler: CFileManeger;
    Procedure SetPath(path: string);
    procedure CNDrawItem(var Message: TWMDrawItem); message CN_DRAWITEM;
    procedure CreateWnd;override;


  public
    procedure DrawItem(Index: Integer; Rect: TRect;
                             State: TOwnerDrawState);override;
    procedure Init;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published

    Property Header:THeaderControl
             read FHeader
             write FHeader;
    property ImageList: TImageList
             read FImageList
             write FImageList;
    Property FilesList: TList
             read FFilesList
             write FFilesList;
    Property CurIndex: integer
             read FMyIndex
             write FMyIndex;        
  end;
procedure register;

implementation
uses
  shellAPI, Forms, FLConst;

///------------------------------------------------------------------

procedure register;
begin
  RegisterComponents('Samples', [TMyCustomFileListBox]);
end;

///-----------------------------------------------------------------

constructor TMyCustomFileListBox.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

/////////////////////////////

  //FImageList.DrawingStyle
  FFilesList:= TList.Create;
  FFiler:= CFileManeger.Create;
  FCanvas := TControlCanvas.Create;
  self.Color:= clWhite;
end;

destructor TMyCustomFileListBox.Destroy;
begin

  FFiler.Free;
  inherited Destroy;
end;

procedure TMyCustomFileListBox.CreateWnd;
begin
  inherited CreateWnd;
end;

end.