unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;    type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    procedure Edit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    FCalStart:Boolean; //是否在計時中
    FStartTime:TTimeStamp; //儲存第一個鍵按下的時間
    FEndTime:TTimeStamp; //儲存Enter鍵按下的時間
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  iT:Integer;
begin
  if FCalStart then
  begin
    //計時中,所以查看user是否按下Enter鍵
    if (Key = 13) then
    begin
      FEndTime:=DateTimeToTimeStamp(now);
      FCalStart:=False;
      iT:=FendTime.Time - FStartTime.Time;
      Label1.Caption:='所花時間: ' IntToStr(it) ' ms';
    end;
  end
  else
  begin
    //沒有計時,所以啟動計時狀態,儲存現在時間
    FStartTime:=DateTimeToTimeStamp(now);
    FCalStart:=True;
  end;
end;    end.