program PassWord;

uses
  Forms,Dialogs,
  SysUtils,//追加
  PasswordUnit in 'PassWordUnit.pas' {Form1},
  InputFormUnit in 'InputFormUnit.pas' {InputForm},
  ConstUnit in 'ConstUnit.pas';

{$R *.RES}

var
  F: TextFile;
  DatFileDate:TDateTime;
  S:string;
begin
  Application.Initialize;
  S:='No PassWord';
  AssignFile(F, DatFileName);
  try
    if not FileExists(DatFileName) then
    begin
//無ければ作成
      Rewrite(F);
//書き込み
      Writeln(F, S);
//日付の設定
      DatFileDate:=Now;
    end else
    begin
      Reset(F);
//ファイルの 1 行目を読み出す
      Readln(F, S);
//日付の取り出し
      DatFileDate:=FileDateToDateTime(FileAge(DatFileName));
    end;
  finally
    CloseFile(F);
  end;
  Application.CreateForm(TForm1, Form1);
//日付を比べて（期限を過ぎているか）パスワードが違えば
  if Now-DatFileDate>PassDate then
    if S<>GetPassWord then
    begin
//入力フォームを ShowModal で出す。
      Application.CreateForm(TInputForm, InputForm);
      InputForm.ShowModal;
    end;
  Application.Run;
end.