Found this little gem today. It is called in all the DDE-based functions in the unit. Nice.

Found this little gem today.  It is called in all the DDE-based functions in the unit.  Nice.

procedure DelayWithTimer(DelayTimeMSec: longint);
// Note: 1000 msec = 1 second
// New results (1gighertz): 12,500 ProcessMessages ~ 1 msec.
// Old results (100meghertz): 125 ProcessMessages ~ 1 msec.
// The smallest delay possible in this proc is 1 msec (10 msec in actuality).
var ii, StartTime, TimeNow : Longint;
begin
  StartTime := 0;
  if (DelayTimeMSec > 1) then StartTime := GetTheTimeMSEC; // Trick for 1 msec delay!
  repeat
    for ii := 1 to 12500 do Application.ProcessMessages;
    TimeNow := GetTheTimeMSEC;
  until (TimeNow > (StartTime+DelayTimeMSec)) or (TimeNow < StartTime);
end; // DelayWithTimer