Mensaje de Error al Cerrar Aplicacion

[pikachuy]

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

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.

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:

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):

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:

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.

PD: Perdon por no manejar bien las etiquetas.