TStopwatch

type TStopwatch = record

public

const

  TicksPerMicrosecond = 10

  TicksPerNanosecond = TicksPerMicrosecond / 1000

  TicksPerMillisecond = 1000 * Int64(TicksPerMicrosecond)

  TicksPerSecond = 1000 * Int64(TicksPerMillisecond)

  TicksPerMinute = 60 * Int64(TicksPerSecond)

  TicksPerHour = 60 * Int64(TicksPerMinute)

  TicksPerDay = 24 * TicksPerHour

public

  class function GetTimeStamp;

  procedure Reset;

  procedure Start;

  class function StartNew;

  procedure Stop;

  property ElapsedMilliseconds: Int64; [r]

  property ElapsedTicks: Int64; [r]

  property Frequency: Int64; [r]

  property IsHighResolution: Boolean; [r]

  property IsRunning: Boolean; [r]

end;