procedure Tcrear_exa.DBLookupComboBox1Click(Sender: TObject);
showmessage(DBLookupComboBox1.KeyValue);//solo es para mostrar el id que seleccione
ModuloEasyExa.AdoTema.Filtered:=false;
ModuloEasyExa.AdoTema.Filter:='idExperienciaE='+IntToStr(DBLookUpComboBox1.KeyValue);
ModuloEasyExa.AdoTema.Filtered:=true;
end;// nuestro modulo de datos+adoTable y los parametros.