consulta y dbgrid

[UREÑA]

buen dia amigos

lo que quiero hacer es lo siguiente pero no me funciona

tengo una consulta:

Código SQL [-]
begin
frm_DataModule.qry_Asig_Mat_Materia.Close;
frm_DataModule.qry_Asig_Mat_Materia.SQL.Clear;
frm_DataModule.qry_Asig_Mat_Materia.SQL.Add('SELECT * FROM MATERIA WHERE NUCLEO_FORMACION='+QuotedStr('TRONCO COMUN')+' OR CLAVE_AA= '+QuotedStr(VarToStr(lucb_AA.KeyValue)));
frm_DataModule.qry_Asig_Mat_Materia.SQL.Text;
frm_DataModule.qry_Asig_Mat_Materia.Open;
lucb_Materia.LookupField:='ID_MATERIA';
lucb_Materia.LookupDisplay:='NOMBRE_MATERIA';
end;

y quiero que el resultado me lo muestre en un dbgrid le he puesto en datasource el query que estoy utilizando pero me arroja todos los datos de mi tabla y solo quiero que me mande los de la consulta antes vista

gracias