如果需要精确到毫秒级的定时，Delphi有哪些其他选项?

对于精确到毫秒级的定时，在Delphi中除了使用TTimer（它的Interval属性是以毫秒为单位）之外，还有以下两个选择：

1. **System.Threading.Timer**：这是Delphi的Threading单元里的一个类，它提供了基于线程的高精度定时功能。你可以设置一个延迟后开始周期性地调用指定的回调函数。

uses
  System.Threading;

var
  MyTimer: TTimer;
begin
  MyTimer := TTimer.Create nil;
  MyTimer.Interval := 1; // 毫秒级别
  MyTimer.OnTimer := procedure(Sender: TObject) begin
    // 发送指令
  end;
  MyTimer.Start; // 立即启动，每毫秒执行一次
end;

2. **TPeriodicEvent**：虽然不是真正的定时器，但在某些场景下，它可以用于模拟高精度定时，比如配合message loop使用。你可以设置一个event并在某个特定的毫秒数后触发。

uses
  System.SysUtils,
  Messages;

type
  TPollingEvent = TCustomEvent;

var
  PollingEvent: TPollingEvent;

procedure PollUntilMillisecond(ms: Integer);
begin
  PollingEvent.FireOnExecute := ms - GetCurrentMessageTickCount; // 当前时间到ms毫秒数触发
  while PollingEvent.Pending do Application.ProcessMessages; // 主循环等待事件触发
end;

这会阻塞直到指定的毫秒数过去，然后触发事件并继续执行后续操作。

请注意，尽管上述方法可以提供相当高的精确度，但过度频繁的毫秒级操作可能会对性能产生影响。因此，优化使用至关重要。