Ayuda como Optimizar Código

[JerS]

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