期間限定の使用にしたい

サンカク 2022-11-23 00:30:02 No: 150692

例えば、2023年4月1日になったら、起動しなくなるようなプログラムを組みたいのですが
どうしたらいいでしょうか。
日付は普通にパソコンに表示されている日付で判断するとします。

AAAAA 2022-11-23 00:41:44 No: 150694

プロジェクトで
program Project1;

uses
Vcl.Forms, SysUtils,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin

if Now > StrToDateTime('2023/04/01') then Exit;

  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.