Apertura y Cierre de Caja ..

[anonymous]

Buenas estoy desarollando un sistema y en la apertura y cierre de caja tengo un problema
Como puedo hacer para guardar la fecha y la hora del sistema en mis campos de la tabla Caja ?
Osea el usuario en el menu principal tiene para elegir caja .. aparterura .. tiene que salir el monto inicial tambien ..

Código Delphi [-]
   fmodulo.qFechaHora.Active := True;
      fmodulo.qFechaHora.Open ;
      fmodulo.tCaja['fecha_ap_caj'] := fmodulo.qFechaHora['fecha'];
      fmodulo.tcaja['hora_cie_caj'] := fmodulo.qFechaHora['hora'];
      fmodulo.tCaja.Post;
      fmodulo.qFechaHora.Active := False;
end;

este es mi codigo pero creo que esta mal o no me funciona .. ayudaa