[NumLock]

Код:

var
  AThen: TDateTime;
begin
  AThen:=Now;
  Sleep(1000*60*5);
  ShowMessage(IntToStr(MinutesBetween(Now, AThen)));
end;