[ApxaHGe1]

Код:

uses Registry;

var
  nd,cd:string;
  reg:TRegistry;

reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('SOFTWARE\Secure\',true);
cd:=Reg.ReadString('date');
reg.Destroy;
nd:=DateToStr(Date);
if nd = cd then
ShowMessage ('Trial OFF');