关于Delphi的时间比较

Question

我现在想要比较早上8.00到晚上20.00和系统时间比对, 用IF语句我是这么写的,但是不行啊.希望大家帮帮 pxks.Caption := TimeTostr(StrToTime('08:00:00')); 
xtsj.Caption := FormatDateTime('hh:mm:00', now); 
pxjs.Caption := TimeTostr(StrToTime('20:00:00')); 
if (pxks.Caption < xtsj.Caption) and (pxjs.Caption > xtsj.Caption) then 
begin 
....... 
end 
else 
begin 
Application.MessageBox('已经超过晚上20点，请明早8.00以后再使用, '结束', 0 + 16); 
end; 各位大哥,帮帮啊..

Answer 1

if (Time() >= StrToTime('08:00:00')) and (Time() <= StrToTime('20:00:00')) then
  ...
else ShowMessage('已经超过晚上20点，请明早8.00以后再使用');