Ich würde die Lookup-ComboBox direkt mit dee Datenquelle von Query1 verknüpfen . Die Abfrage entsprechend anpassen:
Query1.Sql.Add('SELECT * FROM artikel WHERE kategorie=:kat');
und im onChange der Box:
Delphi-Quellcode:
Query1.ParamNyName('kat').value := Table1.FieldBynName('Kategorie').Value;
Query1.Refresh();