program Project1; uses Windows, Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} begin Application.Initialize; if 0 = GlobalFindAtom('SOME-UNIQUE-TEXT-RELATED-TO-THIS-APPLICATION') then begin GlobalAddAtom('SOME-UNIQUE-TEXT-RELATED-TO-THIS-APPLICATION') ; Application.CreateForm(TForm, Form1) ; Application.Run; end else begin Application.MessageBox( 'You can run the trial version '+ 'of this application '+ 'only once per Windows session!', 'Test Trial Protection') ; end; end.