Component Within a Component Event Problem

I cant' access my subcomponent. I am trying to create an On-Click event
for my Listbox (FDaybox), but it just isn't working!! Please Help.

Here is the code.

  TStringCalendar = class(TCalendar)
  private

    Procedure tClick(Sender: TObject);

  public

    FDayBox: TListbox;

    constructor Create(AOwner: TComponent); override;
TGridDrawState); override;

constructor TStringCalendar.Create(AOwner: TComponent);

BEGIN
  Inherited Create (AOwner);

  fDaybox:=Tlistbox.Create(AOwner);
  fDaybox.Parent:=Self;

  {Why doesn't this Call TClick When Fdaybox is Clicked?????}
  fDaybox.Onclick:=tClick;
    :
    :
    :
    :
END;

Procedure TStringCalendar.tClick(Sender: TObject);
BEGIN
  {Do Something Here}
END;

Ste...@CriticalMass.com