I imagine most Delphi developers have written code similar to the following to quickly test a block of code using the Now function: procedure TDemoExecutionProfilerForm.DoSomeComplexCode; var St...