Ordner-Durchsuchen-Komponente

[xZise]

Ich habe mir eine Komponente gebastelt um einen Ordner zu wählen:

Delphi-Quellcode:

unit UDurchsuchen;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, JvExControls, JvComponent, JvXPCore, JvXPButtons, ExtCtrls,
  ComCtrls, ShellCtrls;

type
  TFDurchsuchen = class(TForm)
    Directorys: TShellTreeView;
    Panel1: TPanel;
    Panel2: TPanel;
    JvXPButton2: TJvXPButton;
    JvXPButton1: TJvXPButton;
    procedure JvXPButton2Click(Sender: TObject);
    procedure JvXPButton1Click(Sender: TObject);
  private
    Abort : Boolean;
    Path : TFileName;
  public
    function Execute : Boolean;
    function getPath : TFileName;
  end;

var
  FDurchsuchen: TFDurchsuchen;

implementation

{$R *.dfm}

function TFDurchsuchen.Execute : Boolean;
begin
  Abort := false;
  inherited ShowModal;
  Result := not Abort;

end;

procedure TFDurchsuchen.JvXPButton2Click(Sender: TObject);
begin
  Abort := true;
  close;
end;

procedure TFDurchsuchen.JvXPButton1Click(Sender: TObject);
begin 
  Path := Directorys.Path;
  close;
end;

function TFDurchsuchen.getPath : TFileName;
begin
  Result := Path;
end;

end.

Nun wollte ich das als Kompoennete einstellen!
Muss ich es dazu nur registieren?