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

在Delphi 7应用程序中,我想跟随鼠标移动组件.我正在做这样的事情:

procedure MyComponent.MouseMove(Sender: TObject;Shift: TShiftState; X, Y: Integer);
begin
  AnotherComponent.Top := X;
  AnotherComponent.Left := Y;
end;

当我移动鼠标时,主核心的CPU使用率在最近的PC上达到100%.

在这种情况下,有什么想法或滴答来减少CPU使用率？