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;