Operaciones matematicas con tiempo

[[Delphius]]

Disculpa CoCaInE,
Pero no termino de comprenderte

¿Lo que tu deseas hacer es esto?

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Now = HoraCierre
     then close;
end;

En HoraCierre se tiene almacenado la hora en que debe finalizarse el trabajo. Ya sea que provenga el valor de un archivo, de una tabla... de lo que sea... es independiente de donde venga.

Como opción, para evitar que el usuario cierre el aplicativo haría:

Código Delphi [-]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose = False; //O también Now = HoraCierre
end;

Como he dicho, no se si te he entendido... dime si me he equivocado.
Saludos,