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.

[epuigdef]

Buenas!

En lugar de hacer

Código Delphi [-]
Query1.execsql;
Query1.active:=true

prueba con

Código Delphi [-]
Query1.open;

Y, por cierto, si tienes este código en un botón, vas a dejar la consulta abierta, si el usuario pulsa 2 veces vas a tener errores, por lo que al inicio debes controlar si está cerrado:

Código Delphi [-]
if  query1.active then query1.close;

Espero que te sirva

Edu

[pikachuy]

Gracias epuigdef funcionó de maravilla,
por cierto lo de que si el usuario pulsa dos veces
el boton eso lo controlo si la consulta regresa resultados
el boton se deshabilita.
Nuevamente Gracias