Пробная версия для своего приложения

program Project1;
 
uses
SysUtils,
Forms,
Unit1 in 'Unit1.pas' {Form1};
 
{$R *.RES}
 
const
MB_OK = $00000000;
MB_ICONSTOP = $00000010;
MB_APPLMODAL = $00000000;
MB_DEFBUTTON1 = $00000000;
var
TheYear, TheMonth, TheDay : Integer;
Flags: LongInt;
begin
Application.Initialize;
TheYear := 2001;
TheMonth := 12;
TheDay := 1;
if (Now >= EncodeDate(TheYear, TheMonth, TheDay)) then
begin
Flags := MB_OK + MB_ICONSTOP + MB_APPLMODAL + MB_DEFBUTTON1;
Application.MessageBox('This application demo has expired.', 
'Application Epired', Flags);
end
else
begin
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
end.

TheYear := 2001;
TheMonth := 12;
TheDay := 1;

 ... cut ...
begin
  Application.Initialize;
  TheYear := 2001;
  TheMonth := 12;
  TheDay := 1;
  if (Now >= EncodeDate(TheYear, TheMonth, TheDay)) then
  begin
    Flags := MB_OK + MB_ICONSTOP + MB_APPLMODAL + MB_DEFBUTTON1;
    Application.MessageBox('This application demo has expired.', 'Application Epired', Flags);
    Application.Terminate;
  end;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.