Ayuda con Access Violation

[JerS]

Buenas después de 7 años sigo presentando el mismo problema en mi aplicación , pero esta vez en esta fragmento del codigo

Código Delphi [-]
    ZQuery3.Close;
    ZQuery3.SQL.Clear;
    ZQuery3.SQL.Add('Select acceso from permisos p,detallepermisos d where cedula=:cedula and p.codigo=d.codigo and fecha=current_date');
    ZQuery3.ParamByName('cedula').AsString:=cedula;
    escribir('Consulta para Obtener el Valor de Permiso');
    ZQuery3.Open;
      If Not ZQuery3.EOF Then
        Permiso:=ZQuery3.Fields[0].AsInteger
      Else
        Permiso:=0;

estoy usando una base de datos en mysql 4.11 , Delphi 7 el campo acceso es de tipo integer ..

Use los consejos que me dan en este hilo como usar parámetros en mi consulta, pero sigue el mismo problema. Mi aplicación puede pasar 3 días seguidos 24 horas al día por este fragmento de código sin generar ningún problema pero derrepente me arroja la Siguiente Excepción:

*****Excepcion en el Cuerpo Principal del Sistema Access violation at address 004022E6 in module 'Program1.exe'. Write of address 0794B3D8

me aconsejan no Utilizar el ZQuery3.Close; porque puede generar algún problema si la consulta no esta abierta, pero siempre lo he utilizado así en todas mis aplicaciones y de
verdad a parte de este fragmento de código me ha funcionado bien.


Espero sus aportes muchas gracias