怎样在程序运行中获得精确的时间?

Question

var
  MyTime: TDateTime
procedure TForm1.Button1Click(Sender: TObject);
begin
  MyTime := Now;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  MyTime := Now - MyTime;
  ShowMessage('Delay Time:' + FloatToStr(MyTime * 24 * 60 * 60) + 's');
end;

Answer 1

TForm1 = Class( TForm )
...
Private
  FDatetime: TDatetime;
  FdblTime: double; //时间间隔, 单位（天）,精确到毫秒
end;procedure TForm1.Button1Click( Sender: TObject );
begin
  FDatetime := now;
  // do you things ...
  //...
  FdblTime := now - FDatetime;
  ShowMessage( FloatToStr( FdblTime ) ); //天数
  ShowMessage( FloatToStr( FdblTime * 3600 * 24 ) ); //秒数
End;

Answer 2

不好意思，Musicwind(风里来雨里去)老兄！
先走了一步！

Answer 3

var
  t:Tdatetime;
……
procedure TForm1.Button1Click(Sender: TObject);
begin
  t:=now;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
  tm:Tdatetime;
begin
  tm:=now-t;
  showmessage(timetostr(tm)); 
end;