Consejo para una aplicación ( paradox )

[BlackDaemon]

heheh hola Lepe gracias por el tiempo que empleas en responder mis mensajes ahora sobre la hora del sistema ya lo había pensado y ya quité ese privilégio al usuario con el que inícia el sistema de eso no hay problema... ahora pasando a los otros puntos creo que está un poco complicado.. pero no imposible eso de sumar las horas totales de cada usuario... ahora para eso de saber si es Login o loguot tengo una idea.. usar un TIMER "ojo" solo es una idea nada mas.. xDD
Bueno ahora les digo la idea osea con el timer calcular si es mañana y tarde se preguntaran.. joder este tio esta loco @_@ , para que hacer semejante gilipollada ??? xDD , pues para hacer que el programa sepa cuando es login o es logout, si es mañana es login y si es tarde es logout y si como lograr eso ?? Pues con el Timer.. algo asi miren.. OJO pero solo es una idea no se como llevarla a cabo pero la idea es que si es mañana y se logea en la mañana llene el campo de la Tabla con los datos del sistema.. osea la hora y fecha.. ahora si es tarde y hace un logout pues que haga lo mismo... pero si el usuario despistado se olvidó marcar su horario de salida.. que el programa llene el campo de la tabla automaticamente con un campo vacío algo así xD

Código Delphi [-]
procedure TFrm_Data.RELOJTimer(Sender: TObject);
var
   hora : TDateTime;
   dia, tarde: string;

begin
   dia:=   '7:00';
   tarde:= '12:00';
   hora:= Time;

   If hora > StrtoTime(Dia) then
     begin

       Query1.Close;
       Query1.Open;
       Query1.Add ( ('Sentencia SQL para que llene el campo de la tabla automaticamente' )  + 
                          (' en el caso de que el user se olvide hacer el LOGIN' ));
       Query.ExecSQL;
     end;


   If hora > StrtoTime(Tarde) then
     begin
       
       Query1.Close;
       Query1.Open;
       Query1.Add ( ('Sentencia SQL para que llene el campo de la tabla automaticamente' )  + 
                          (' en el caso de que el user se olvide hacer el LOGOUT' ));
       Query.ExecSQL;

     end;
end;

bueno es solo una idea que no se que sentencias utilizar ni como hacerlo pero bueno pienso que podría resultar

saludos y gracias

PD ahora cumplí un mes en mi primer laburo