Y para qué quieres tiempos tan reducidos?
Busca información sobre GetTickCount, que creo que te ofrecerá otra opción para manejar tiempos.
Puedes ver tambié
QueryPerformanceTimer
Supongo que podrías hacer un :
Código:
TicksPorMilisegundos := CantidadDeTicksPorSegundo / 1000;
CeroPuntoDosMilisegundos := 0.2 * TicksPorMilisegundos;
Start := TickInicio;
while ((CantidadDeTicks - Start) < CeroPuntoDosMilisegundos) do
begin
//No hacer nada
end;