Ayuda como Optimizar Código
 

amigos tengo un reloj que toma la hora de un servidor remoto y quisiera saber si es la forma mas optima de hacerlo.

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;

        Fecha.Close;
        Fecha.SQL.Clear;
        Fecha.SQL.Add('SELECT date_format(current_date(),"%Y/%m/%d")');
        Fecha.Open;
        Label11.Caption:=Fecha.fields[0].AsString;

      Except on e:exception do
        Escribir('*****Exepcion al Actualizar la Hora: '+label25.Caption+' en el Timer Hora');
      End;

el Timer tiene como parametro de Interval:=10000;

durante el dia me genera este tipo de excepcion
Acces violation

No sé que motor de base de datos estás utilizando, pero no será mejor que obtengas el valor del campo como un TDateTime común y corriente?

Aparte de eso, la mayor optimización que puedes hacer en tu código es realizar una sola consulta y no dos a cómo lo estás haciendo. Nuevamente, si solo devolvieras de la consulta un TDateTime normal, ni siquiera sería necesario hacer ambas consultas ya se sería redundante.

Saludos,
Chris

estoy usando mysql , lo tomare en cuenta.

Que es lo que intentas de hacer con esa hora ? sincronizar relojes ?

No seria mejor usar NTP ?