Foros Club Delphi - Mensaje de Error al Cerrar Aplicacion

Saludos a todos.
Es la primera vez que participo en este foro :D

Mi problema es el siguiente:

Ejecuto este codigo en un boton para mostrar el resultado en un DBGRID:

La relacion de los componentes es:
DBGrid1->DataSource1->Query1.

Código:

Query1.SQL.Clear;

Query1.SQL.Text:='Select (Cursos.Nombre) as Nombre, (Cursos.Turno) as Turno, (Cursos.Horario) as Horario From'

  +' Cursos, Grupos Where Grupos.Id_Alumno='+QuotedStr(PCCAClave.Text)

  +' and Grupos.Id_Curso=Cursos.Id_Curso and Cursos.Tipo="CURSO"';

Query1.ExecSQL;

Query1.Active:=True;

Se ejecuta bien la consulta y muestra sus resultados.

pero luego al cerrar la aplicacion aparece esto:
Mensaje de error:

Código:

Proyect SCC.exe raised exception class EAccessViolation 

with message 'Access violation at address 000000000. 

Read of address 000000000'. Process stopped. Use Step or Run to Continue.

y luego cambio la consulta(para probar que es lo que pasa):

Código:

Query1.SQL.Clear;

Query1.SQL.Text:='Select * From Cursos';

Query1.ExecSQL;

Query1.Active:=True;

Se ejecuta bien y se cierra bien la aplicacion.

esto lo he probado por separado en un programa sencillo y me di cuenta que el problema es la consulta:

Código:

Query1.SQL.Text:='Select (Cursos.Nombre) as Nombre, (Cursos.Turno) as Turno, (Cursos.Horario) as Horario From'

 +' Cursos, Grupos Where Grupos.Id_Alumno='+QuotedStr(PCCAClave.Text)

 +' and Grupos.Id_Curso=Cursos.Id_Curso and Cursos.Tipo="CURSO"';

Estas consultas no regresan ni 15 registros.
Esa consulta me sirve porque me muestra lo que quiero

Si me pueden ayudar a resolver este problema se los agradeceria mucho.
:o
PD: Perdon por no manejar bien las etiquetas.