期間限定の使用にしたい

サンカク  2022-11-22 15:30:02  No: 150692  IP: 192.*.*.*

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

編集 削除
AAAAA  2022-11-22 15:41:44  No: 150694  IP: 192.*.*.*

プロジェクトで
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.

編集 削除