Запрет после 24 часов (сутки)

Unit
      Unit1;
 
Interface
 
Uses
      Windows,
      Messages,
      SysUtils,
      Variants,
      Classes,
      Graphics,
      Controls,
      Forms,
      Dialogs,
      StdCtrls;
 
Type
      TForm1 = Class(TForm)
            Button1: TButton;
            Button2: TButton;
            Procedure FormCreate(Sender: TObject);
            Procedure Button1Click(Sender: TObject);
            Procedure Button2Click(Sender: TObject);
      Private
            ReqDate: TDateTime;
      Public
      End;
 
Var
      Form1: TForm1;
 
Implementation
 
Uses
      DateUtils;
 
{$R *.dfm}
 
Procedure TForm1.FormCreate(Sender: TObject);
Begin
ReqDate:=Now();
End;
 
Procedure TForm1.Button1Click(Sender: TObject);
Begin
With (Sender As TButton) Do
      Begin
      Enabled:=False;
      ReqDate:=IncHour(Now(), 24);
      End;
End;
 
Procedure TForm1.Button2Click(Sender: TObject);
Begin
If (Now()<ReqDate) Then
      ShowMessage('Действие не доступно!'#13#10'Осталось до активации: '+FormatDateTime('hh:mm:ss', ReqDate-Now()))
Else
      Begin
      // ...
      End;
End;
 
End.

D := Now;

Procedure TForm1.FormCreate(Sender: TObject);
Begin
ReqDate:=Now();
End;

Procedure TForm1.Button1Click(Sender: TObject);
Begin
With (Sender As TButton) Do
      Begin
      Enabled:=False;
      ReqDate:=IncHour(Now(), 24);
      End;
End;

UD := IniFile.ReadDateTime('Date', 'udate', D);