时间的比较

/////// TDateTime = type Double;

因此，直接比较即可：

if Now > SetupDateTime then 迟到

if Now = SetupDateTime then 正点

if Now < SetupDateTime then 假装积极

/*----------------------------------------*/

不好意思，我以为你能看懂，所以就那样表述了。我重新规规矩矩地给你写了：

但仍然是演示代码，不能就这样复制到你的应用软件里去：

var
  SetupDateTime : TDateTime;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Now > SetupDateTime then
  Showmessage(FormatDateTime('YYYY-MM-DD hh:nn:ss', Now) + '这时上班已经迟到了')
  else Showmessage(FormatDateTime('YYYY-MM-DD hh:nn:ss', Now) + '没迟到');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := '2008-02-27 20:49:49';
  SetupDateTime := VartoDateTime(Caption);
end;

另外，浮点数直接进行=比较好象不太现实，这个你自己研究吧！

转自：http://topic.csdn.net/u/20080227/19/f37de69f-fba4-49fb-9b11-8798c9b4567b.html