problemas con consulta

[UREÑA]

hola amigos buen dia

lo que pasa es que tengo una consulta pero no se me logra cumplir la condicion

Código SQL [-]
 frm_DataModule.qry_Selec_Materia.Open;
 frm_DataModule.qry_Selec_Materia.SQL.Clear;
 frm_DataModule.qry_Selec_Materia.SQL.Add('SELECT ID_MATERIA, NOMBRE FROM MATERIA');
 frm_DataModule.qry_Selec_Materia.SQL.Add('WHERES (((MATERIA.CLAVE_AA) = '+VarToStr(frm_CapAlum1.combo_Nucleo.KeyValue)+') OR (MATERIA.NUCLEO_FORMACION) ='+QuotedStr('TRONCO COMUN')+' ) ');
 frm_DataModule.qry_Selec_Materia.SQL.Text;
 frm_DataModule.qry_Selec_Materia.Close;

 while not (frm_DataModule.qry_Selec_Materia.Eof) do

creo que la cadena "tronco comun" no me la esta tomando en cuenta para que pueda entrar al while.lo he corrido y en el text me lo muestra con comillas simples y tengo entendido que un string va con doble que no?

espero y entiendan lo que les quise decir y me puedan ayudar
muchas gracias mis amigos del foro