Timming Expire Demo Program

Procedure TForm1.FormShow(Sender: TObject);
var
YY, MM, DD : Integer;
begin
YY := 2007;
MM := 9;
DD := 1;

if (Date >= EncodeDate(YY, DD, MM)) then
begin
ShowMessage(‘Sory Program expire’);
Close;
end;
end;