线程执行一遍的最短时间是多少？ 如何加快线程的执行速度？

我做了一个最简单的线程：
procedure TDataProcssor2.Execute;
begin
  SetName;
  { Place thread code here }
  while not Terminated do
  begin
    Form1.memo2.Lines.Add('线程周期开始'+ formatdatetime('nn:ss.zzz', now));
    Form1.memo2.Lines.Add('线程周期结束'+ formatdatetime('nn:ss.zzz', now));
    sleep(1);
  end;end;每执行一遍 Sleep(1),但结果却大大出乎意料：线程执行过程不点时间，但从线程执行完，到再次进入线程执行之间的时间间隔约为16毫秒，将线程的优先级设为最高效果也一样。同样使用定时器TTimer，将Interval设置为1，定时器的执行的间隔也约为16毫秒。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
我想获得一个更加快速的循环执行过程，用于数据处理，不知道可以使用什么方式，请高手赐教。