[JerS]

Código Delphi [-]
 Try
        Hora.Close;
        Hora.SQL.Clear;
        Hora.SQL.Add('Select (time_format(Current_time,"%H:%i"))as Hora, (time_format(Current_time,"%h:%i %p"))as HoraAMPM ');
        Hora.Open;
        label25.Caption:=Hora.Fields[0].AsString;
        label8.Caption:=Hora.Fields[1].AsString;
        Application.ProcessMessages;
      Except on e:exception do
      End;

Donde Hora es un TZQuery, utiliza Zeos 6.6.6 , D7 y Mysql 4.1 este segmento de código esta en un TTimer que tiene un intervalo de 10000 en cierto momento me arroja una excepción de Access Violation de verdad no tengo idea de que hacer, les agradezco su ayuda.