如何在Delphi 中的OnMouseMove事件中移动组件时减少CPU使用率？

procedure TForm1.FormCreate(Sender: TObject);
begin
  FTimerID := SetTimer(0, 0, 100, nil);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  KillTimer(0, FTimerID);
end;

type
  TForm1 = class(TForm)
    ...
  private
    FTimerID: UINT;
    FLastMousePos: TPoint;
    procedure WMTimer(var Msg: TWMTimer); message WM_TIMER;
    ...
  end;

...

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  FLastMousePos := Point(X, Y);
end;

procedure TForm1.WMTimer(var Msg: TWMTimer);
begin
  if Msg.TimerID = FTimerID then
  begin
    if (FLastMousePos.X <> -1) and (FLastMousePos.Y <> -1) then
    begin
      // 移动组件
      Button1.Left := FLastMousePos.X;
      Button1.Top := FLastMousePos.Y;
      FLastMousePos := Point(-1, -1);
    end;
  end;
end;