uses SysUtils; {...} if(Date > EncodeDate( 1997, 1, 1 ))then begin { display "this program has expired" } end; {...} if( EncodeDate( 1997, 1, 1 ) > EncodeDate( 1996, 1, 1 ) ) then begin {...} end;