CategoryButtons und onClick

[Alloc]

Hi alle,

ich habe hier gerade ein Problem mit den Buttons aus einer TCategoryButtons. Wenn ich da dem onClick-Event eine Prozedur zuordne wird diese auch schön aufgerufen, allerdings ist Sender nie definiert ... damit kann ich das ganze natürlich nicht nutzen

Delphi-Quellcode:

procedure TForm1.AddSite(CatName: string; SiteName: string; Address: string);
  var
    button: TButtonItem;
  begin
    with cats do begin
      cat := Categories.Items[Categories.IndexOf(CatName)];
      button := cat.Items.Add;
      button.Caption := SiteName;
      button.Hint := Address;
      button.OnClick := NavClick;
    end;
  end;

procedure TForm1.NavClick(Sender: TObject);
  var
    button: TButtonItem;
  begin
    button := TButtonItem(Sender);   // <--- Sender ist nicht definiert (leere Klammer im debugger)
    web.Navigate(button.Hint);       // <--- gibt dann natürlich einen Fehler

    repeat
      Application.ProcessMessages;
      Sleep(50);
    until (web.ReadyState = READYSTATE_COMPLETE) or (not web.Busy);
  end;

Wäre für jeden Hinweis dankbar =)

Gruß,
Chris