[wilcg]

Hola amigos del foro,
Me he visto en la necesidad de implementar en mi aplicación un periodo de prueba, para que el cliente pueda usar la aplicación sin ninguna restricción por un periodo de tiempo. Pero tengo dudas sobre la fiabilidad de la protección y el código que utilice cumpla con lo encomendado y no falle y vaya en contra de mis intereses.
Para esto estoy usando un código en el VIEW SOURCE del proyecto que funcione dentro de un rango de fechas. Y quisiera saber la opinión de los expertos si esto es fiable y seguro o existe otra manera mas segura de implementarlo. Espero su ayuda...

Código Delphi [-]
program MiPrograma;

uses
  Forms,
  Windows,
  Classes,
  SysUtils,
  Registry,
  Graphics,
  TaskDialog,
  uPrincipal in 'Sistema\Principal\uPrincipal.pas' {FPrincipal},
  uDBConexion in 'Sistema\Conexion\uDBConexion.pas' {DBConexion: TDataModule},

{$R *.res}
var
  FInicio, FFin :TDateTime;
  AvisoErrores: TAdvTaskDialog;
begin
  FInicio := StrToDateTime('01/02/2017');
  FFin := StrToDateTime('28/02/2017');
  AvisoErrores := TAdvTaskDialog.Create(Application);

  if (Now >= FInicio) AND (Now <= FFin) then
  begin

  end
    else
  begin
    with AvisoErrores do
    begin
      Clear;
      Title := 'Error';
      Icon := tiError;
      CommonButtons := [cbOk];
      CustomButtons.Clear;
      DefaultButton := 0;
      Instruction := 'No se puede iniciar MiAplicación V 1.0';
      Content := 'El periodo de prueba a terminado.';
      ExpandedText := 'La Licencia era válida hasta el 28/02/2017.';
      ExpandControlText := 'Pulse para ocultar';
      CollapsControlText := 'Pulse para ver más';
      FooterIcon := tfiWarning;
      Footer := 'Contacte con ---@hotmail para adquirir la versión completa.';
      Options := [doHyperlinks];
      Execute;
    end;
    Halt;
  end;

  AvisoErrores.Free;

  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  //Application.HelpFile := 'C:\MiCarpeta\Ayuda.chm';
  Application.Title := 'MiPrograma V 1.0';
  Application.CreateForm(TDBConexion, DBConexion);
  Application.CreateForm(TFPrincipal, FPrincipal);
  Application.Run;
end.