Du brauchst wieder 2 Komponenten (2 TQuery).
Den 1. für die Kategorien
Ich nenne sie mal qKat.
Delphi-Quellcode:
qKat.SQL.Text := 'select id, bez from Kategorie';
qArtikel.SQL.Text := 'select <liste> from Artikel where kategorie = :katid";
qArtikel.RequestLive := True;
qKat.Open;
Im AfterScroll-Event setzen wir nun den Parameter des 2. Queries:
qArtikel.ParamByName('katid').Value := qKat.FieldByName('id'.Value;