Sortieren durch DBLookupcombobox? wie?

[mafiaente]

naja ich möchte das jetz über Query machen nur hab ich damit absolut keine erfahrung!
ich denk ma ich müsste den quelltext bei der DBlookupcombobox bei "onclick" einstellen,oder?
nun habe ich dort folgenden code reingeschrieben, nur er bringt nciht die erhoffte wirkung!

Delphi-Quellcode:

procedure TForm2.DBLookupComboBox1Click(Sender: TObject);
begin
Query1.Active:=false;
  Query1.Sql.Clear;
  Query1.Sql.Add('SELECT kategorie FROM (db\artikel.db) WHERE kategorie=dblookupComboBox1.keyvalue');
  Query1.Active:=true;
end;

hoffe jmd kann mir den entscheidenden impuls geben!