[[duilioisola]]

De todas formas todavía no hemos contestado la pregunta del colega carlosprotos.

Código Delphi [-]
var
  Fecha_Demo : TDateTime;
[...]
  // Establezco una fecha final (31/06/2014 23:59:59.999)
  Fecha_Demo := EncodeDateTime(2014, 06 31, 23, 59, 59, 999);
  // Si se hoy es posterior a esta fecha cierro
  if (Now > Fecha_Demo) then
     Close;