Indy10 TIdICMPClient - некорректное время пинга

[holy_0dmin]

Приветствую всех.

Решил вот недавно опробовать Delphi XE3, да так опробовал что на нем почти написал новый проект, а потом наступил на грабли и не знаю что делать. Создал новый пустой проект, на форму кинул IdICMPClient, Memo и Timer. Поставил свойства IdICMPClient.Host='8.8.8.8', Timeout 1000,
В коде таймера:

IdIcmpclient1.Ping();

В коде IdICMPClient.OnReply:

procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
begin
Memo1.Lines.Add(IntToStr(AReplyStatus.MsRoundTripTime));
end;

После запуска проекта в Delphi 7 с Indy9 выдаются реальные задержки, соответствующие консольной команде Ping. При запуске из XE3 с Indy10 выдаются значения 0, 15, 31 в случайном порядке. Гугление не помогло. В исходниках нашел, что время пинга определяется функцией GetTickCount. У Indy9 она своя, а у Indy10 используется системная из библиотеки kernel32. Похоже на какой-то баг, и не ясно как его грамотно и красиво разрулить. Кто-нибудь сталкивался с подобным поведением?

[Stilet]

Что скажешь насчет этого?:
http://delphiworld.narod.ru/base/little_ping_app.html

[holy_0dmin]

То же самое вышло. Причина была в том, что разрешение стандартного виндового таймера 10-15 мсек, и с этим ничего нельзя поделать. Переписал с Indy, но с использованием подсчета количества тактов процессора и делением на частоту процессора. Результаты стали очень точными, тему можно закрывать.