[draginimp]

Вам нужен фильтр.

Код:

procedure TForm1.DBLookupComboBox1Click(Sender: TObject);
begin
 AdoQuery2.Filter:='NUM_KLASS = '+dblookupCombobox1.Text;
 AdoQuery2.Filtered:=true;
end;