关于时间判断的问题。

Question

如何判断，当前系统时间，是1：00至 07：50 点？（24小时制）

Answer 1

uses dateutils;
{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
  if (hourof(now)*60+minuteof(now)>1*60)
      and(hourof(now)*60+minuteof(now)<7*60+50) then
end;

Answer 2

if (StrToTime('1:00') < Time) and (Time < StrToTime('7:50')) then
  { TODO }

Answer 3

procedure TForm1.Button2Click(Sender: TObject);
begin
 if (hourof(now)*60+minuteof(now)>1*60)
      and(hourof(now)*60+minuteof(now)<15*60+50) then
 begin
   showmessage('sfsdf');
 end;
end;