Protection de l'application Delphi

Bonjour,
comment protéger une application par date, par ex...
genre: if date.now > strtodate('12.05.2006')...???
J'ai peur d'avoir dit une connerie? :oops:

pour faire simple, je mettrais ce code dans l'unité principale de l'application (pour ce qui est de delphi6)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program Project1;
 
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};
 
{$R *.res}
 
begin
  Application.Initialize;
  //test de la date
  if Date() > StrToDate('12/05/2006') then
  begin
    ShowMessage('votre période d''essai est expirée');
    Application.Terminate;
  end
  else
  begin
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end;
end.

Merciiii :D