Hvorfor virker dette ikke

Hej jeg har fundet denne programstump på nettet. Og har implementeret det i mit eget program, men programmet stopper ikke når udløbsdatoen er overskredet. Nogen der kan forklare hvorfor.

unit Unit1;

interface

uses
Windows, SysUtils, Classes, Forms, Dialogs;

type
TForm1 = class(TForm)
  procedure FormShow(Sender: TObject);

private
  { Private declarations }
public
  { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}     

procedure TForm1.FormShow(Sender: TObject);
var
AAr, Maaned, Dag : Integer;
begin
Aar  := 2001;
Maaned := 12;
Dag  := 1;
if (Date >= EncodeDate(AAr, Maaned, Dag)) then
    begin
      ShowMessage('Programmet lukkes.');
      Close;
    end;
end;

end.



Mvh