Did you know that you can easily compare dates by using the "EncodeDate()"? Here are some examples:
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;