Delphi - Access Violation

Buenas, amigos me aparece la excepción "Access Violation at address 004022E6 in module proyecto.exe" . pero lo curioso es que no es siempre que sucede

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
Escribir('*****Exepcion al Actualizar la Hora: '+label25.Caption+' en el Timer Hora');
End;

Arrojandome esta Excepcion: *****Exepcion al Actualizar la Hora: 10:33 en el Timer Hora

este codigo esta en un TTimer el cual tiene un intervalo de 10000

Buenas noches. Prueba a quitar la linea "Application.ProcessMessages".
Espero te sirva.